在所有节点中找一个名字叫 'AAA' 节点: for i:=0 to Treeview1.Items.Count-1 do begin if Treeview1.Items[i].Text='AAA' then begin Node:=Treeview1.Items[i]; Break; end; end; 在选中节点的子节点中找一个名字叫 'AAA' 节点: for I:=0 to Treeview1.Selected.Count-1 do if Treeview1.Selected.Item[i].text='AAA' then begin Node:=Treeview1.Selected.Item[i]; break; end;
var i:integer; findItem:Ttreenode; NodeRect: TRect; begin for i:=1 to TreeView1.Items.count-1 do begin findItem:=TreeView1.Items.Item[i]; if finditem.text='AAA' then begin finditem.Selected:=true; showmessage('找到:'+finditem.text); break; end; end; end;
可以预先定义若干TTreeNode来保存固定的根节点;或通过TreeView.Selected来想办法
for i:=0 to Treeview1.Items.Count-1 do
begin
if Treeview1.Items[i].Text='AAA' then
begin
Node:=Treeview1.Items[i];
Break;
end;
end; 在选中节点的子节点中找一个名字叫 'AAA' 节点:
for I:=0 to Treeview1.Selected.Count-1 do
if Treeview1.Selected.Item[i].text='AAA' then
begin
Node:=Treeview1.Selected.Item[i];
break;
end;
i:integer;
findItem:Ttreenode;
NodeRect: TRect;
begin
for i:=1 to TreeView1.Items.count-1 do
begin
findItem:=TreeView1.Items.Item[i];
if finditem.text='AAA' then
begin
finditem.Selected:=true;
showmessage('找到:'+finditem.text);
break;
end;
end;
end;