Delphi 简单方法搜索定位TreeView项

本文整理自网络，侵删。

 
procedure TForm1.ToolButton4Click(Sender: TObject);
var
  i : integer;
begin
  inherited;
  for i := 0 to TreeView1.Items.Count -1 do
  begin
   {如果和文本框匹配}
    if TreeView1.Items[i].Text = 'HTTP - 常量表.html' then
    begin
      {有父类的时候通过关闭展开父类让Tv自动定位}
      if  TreeView1.Items[i].Parent <> nil then
      begin
        TreeView1.Items[i].Parent.Expanded := False;
        TreeView1.Items[i].Parent.Expanded := True;
      end
      else
      begin
       {通过关闭展开父类让Tv自动定位}
        TreeView1.Items[i].Expanded := False;
        TreeView1.Items[i].Expanded := True;
      end;
     {选择当前循环项,并退出循环,不然他会循环到最后浪费}
      TreeView1.Items[i].Selected := True;
     TreeView1.SetFocus;
      Break;
    end;
  end;
end;
 

相关阅读 >>

Delphi 获取webbrowser中的图片

Delphi httpclient async异步获取网页代码

Delphi删除文件夹

Delphi时间格式错误

winapi 字符及字符串函数(2): charlowerbuff - 把缓冲区中指定数目的字符转小写

Delphi 游戏是如何检测到有od等调试工具的

Delphi isleapyear、isinleapyear - 是否是闰年

Delphi tidhttp+tidssliohandlersocket+ssl

Delphi 如何检测你的电脑日期或时间的变化

Delphi 公历转农历函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 简单方法搜索定位TreeView项