TTreeView vom Child auf Root schliessen

[wtf123]

Hallo,

ich habe ein TTreeView und einige einträge darin, beim clicken aufs
Child würde ich gerne wissen welches Root dazu gehört

var
nodes: array[0..maxnodes] of TTreeNode;
i:integer;

for i:=0 to maxnodes do begin
nodes[i] := Add(nil, 'Test'+inttostr(i));
nodes[i].ImageIndex := Random(9);
AddChild(nodes[i],'ChildNode'+inttostr(i));
end;


Danke

[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.