procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
for i:=0 to Treeview1.Items.Count-1 do
begin
if Treeview1.Items[i].Text=Trim(Edit1.Text) then //Edit1.Text你要寻找的节点文本
begin
Treeview1.SetFocus;
Treeview1.Items[i].Selected:=true;
Treeview1.Items[i].Focused:=true;
end;
end;
end;
var
i: Integer;
begin
for i:=0 to Treeview1.Items.Count-1 do
begin
if Treeview1.Items[i].Text=Trim(Edit1.Text) then //Edit1.Text你要寻找的节点文本
begin
Treeview1.SetFocus;
Treeview1.Items[i].Selected:=true;
Treeview1.Items[i].Focused:=true;
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货