随笔分类 -  Delphi Vcl

Delphi 简单方法搜索定位TreeView项
摘要：procedure TFmXX.BtnFindClick(Sender: TObject);var i : integer;begin inherited; for i := 0 to BTvCity.Items.Count -1 do begin {如果和文本框匹配} if BTvCity.Items[i].Text = EdtNodeText.Text then begin {有父类的时候通过关闭展开父类让Tv自动定位} if BTvCity.Items[i].Parent <> nil then begin BTvCi... 阅读全文

posted @ 2013-01-16 23:20 哈哈哈哈BBA 阅读(4025) 评论(0) 推荐(0)

导航