Как можно получить всех потомков выбранного элемента TreeView..?

← →
I_one (2003-03-26 06:01) [0]

Как можно получить всех потомков выбранного элемента TreeView...? Опишите плиз алгоритм хотя бы в общих чертах.

← →
builder (2003-03-26 06:17) [1]

TreeView1.Selelected.Item[i];

procedure TForm1.ShowChildren(ANode: TTreeNode);
var
n:TTreeNode;
begin
ShowMessage(ANode.Text);
n:=ANode.GetFirstChild;
while Assigned(n) do
begin
ShowChildren(n);
n:=ANode.GetNextChild(n);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowChildren(TreeView1.Selected);
end;

Как можно получить всех потомков выбранного элемента TreeView..? Найти похожие ветки