GetNext() liefert einfach den nächsten Knoten. Das kann ein Knoten auf einer beliebigen Ebene sein. Wenn du alle direkten Unterknoten eines Knotens sehen willst, dann mache es so:
Delphi-Quellcode:
procedure TDemoForm.ShowChildren(tn: TTreeNode);
begin
tn := tn.GetFirstChild;
while Assigned(tn) do
begin
ShowMessage(tn.Text);
tn := tn.GetNextSibling;
end;
end;
marabu