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;

推荐分享