请问如何在Treeview中得到某个选中节点的所有子节点

Question

请问如何在Treeview中得到某个选中节点的所有子节点

Answer 1

for i := 0 to TreeView1.Selected.count - 1 do
  TreeView1.Sleected.Item[i]....

Answer 2

procedure ShowNodeText(ANode:TTreeNode);
var i:integer;
begin
  if ANode<>nil then 
  for i:=0 to ANode.Count-1 do
  begin
    ShowNodeText(ANode.Item[i]);
    ShowMessage(ANode.Text);
  end
end;

Answer 3

while TreeView1.Selected.GetNextChild(TreeView1.Selected)<> nil do
begin
end;

Answer 4

前面的贴好像只能遍历所选节点下面的子节点没有孙节点的树,我刚好写了一个：
//node为要遍历的节点
procedure TForm1.AllOverSubTree(node: TTreeNode);
var
i: integer;
begin
  for i := 0 to node.Count -1 do
  begin
    if node.Item[i].Count > 0 then
    begin
      showmessage(node.Item[i].Text);
      AllOverSubTree(node.Item[i]);
    end
    else
      showmessage(node.Item[i].Text);
  end;
end;