假设TreeView名称为tvTreevarANode:TTreeNode;beginANode:=tvTree.Selected; //当前选中的节点if ANode.HasChildren then //如果有子节点begin ANode:=ANode.GetFirstChild; //得到第一个子节点 while ANode<>nil do ANode:=ANode.getNextSibling; //得到下一个子节点 ShowMessage(ANode.Text); //显示最后一个子节点end;end;
这要用到递归了：procedure FindNode(ANode:TTreeNode);begin while ANode<>nil do begin ShowMessage(ANode.Text); if ANode.HasChildren then begin FindNode(ANode.getFirstChild); end; ANode:=ANode.getNextSibling; end;end;调用：tvTree.FindNode(tvTree.Selected); //将会显示当前选中的节点下的所有子节点
