先(最好在设计时) tv_1.autoExpand:=true; 然后 currnode.Selected:=true; 如: var itemcount:integer; currnode:ttreenode; begin itemcount:=tv_1.Items.Count; currnode:=tv_1.Items[0]; for j:=1 to itemcount do begin if currnode.text=你要展开节点.text then begin currnode.Selected:=true; break; end; currnode:=currnode.GetNext; end; end;
tv_1.autoExpand:=true;
然后
currnode.Selected:=true;
如:
var
itemcount:integer;
currnode:ttreenode;
begin
itemcount:=tv_1.Items.Count;
currnode:=tv_1.Items[0];
for j:=1 to itemcount do
begin
if currnode.text=你要展开节点.text then
begin
currnode.Selected:=true;
break;
end;
currnode:=currnode.GetNext;
end;
end;
刚找了一下。
直接设置节点的 Expanded为真就可以了。