2017年3月28日
Delphi 定位TreeView
摘要： procedure TFmXX.BtnFindClick(Sender: TObject); var i : integer; begin inherited; for i := 0 to BTvCity.Items.Count -1 do begin {如果和文本框匹配} if BTvCity.I 阅读全文
posted @ 2017-03-28 18:02 夏天的西瓜君 阅读(1247) 评论(0) 推荐(0) 编辑
delphi treeview删除节点
摘要： 保留根节点 var I : integer; begin for I := TreeView1.Items.Count -1 downto 1 do TreeView1.Items.Delete(TreeView1.Items[I]); end; 如果不保留： TreeView1.Items.Cle 阅读全文
posted @ 2017-03-28 11:02 夏天的西瓜君 阅读(612) 评论(0) 推荐(0) 编辑