TTreeView vom Child auf Root schliessen

[Muetze1]

Delphi-Quellcode:

var
  lNode: TTreeNode;
begin
  lNode := DeinAngeklicktesNodes;

  while assigned(lNode.Parent) do
    lNode := lNode.Parent;

  // hier ist lNode der Root Node deines angeklicktes Nodes.
end;

Zu Abwandlung des Codes könntest du mal in die Hilfe schauen zu den folgenden Eigenschaften: Parent und Level.