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;
 

相关阅读 >>

idhttp使用时内存猛增，如何解决

Delphi 动态给combobox赋值，从combobox中取值

Delphi 10.3.1新的变量的声明方法

Delphi中如何设置更改编译生成的exe文件的保存位置

Delphi怎么样选择pagecontrol1的分页

Delphi研究之驱动开发篇（四）--使用系统内存堆

Delphi inifile to xml

Delphi释放内存一般这么写

Delphi 之 编辑框控件(tedit)

Delphi获取文件大小

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

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