首页 > 代码库 > Delphi 定位TreeView
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 BTvCity.Items[i].Parent.Expanded := False; BTvCity.Items[i].Parent.Expanded := True; end else begin {通过关闭展开父类让Tv自动定位} BTvCity.Items[i].Expanded := False; BTvCity.Items[i].Expanded := True; end; {选择当前循环项,并退出循环,不然他会循环到最后浪费} BTvCity.Items[i].Selected := True; Break; end; end; end;
参考
http://www.cnblogs.com/yilongm/archive/2013/01/16/2863546.html
Delphi 定位TreeView
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。