@Benedikt: Cool, danke
Zitat von
alzaimar:
Delphi-Quellcode:
Function GetTopItem(ANode : TTreeNode) : TTreeNode;
Begin
While ANode.Parent<>Nil do ANode := ANode.Parent;
Result := ANode.Parent;
End;
Nur der Vollständigkeit halber.
Enspricht ja im Grunde meiner 2.Variante
