如何在treeview控件中点击某一节点时，返回该节点的所有子节点

[84175971]

当选中某一节点时，能够迅速的查找到该节点的所有子节点，这对财务统计将会带来很大的方便，望多请帮助，留言后请留下Email或手机，以便交个delphi朋友

[lastshrill]

Treeview自动展开显示所有节点
var
lnNode: TTreeNode;
begin
lnNode := TreeView1.Items.GetFirstNode;
while not (lnNode = nil) do begin
lnNode.Expand(False);
lnNode := lnNode.GetNextSibling;
end;
end;

[TechnoFantasy]

通过TreeView的Items访问这个节点以下的节点，直到访问到某个节点同这个节点的parent
相同了，那么中间的节点就是这个节点的子节点

[hxshanji]

for i:=0 to Node.count-1 do
begin
childname[i]:=Node.item[i].text;
end;

[hxshanji]

把所有子接点名记录到
childname字符串数组。