Hallo,
der selektierte Knoten muss nicht unbedingt gesucht werden:
Delphi-Quellcode:
function RootNode(node: TTReeNode): TTreeNode;
begin
while Assigned(node) do
begin
Result := node;
node := node.Parent;
end;
end;
procedure TDataForm.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
if Assigned(Node) then
ShowMessage(RootNode(Node).Text)
end;
Ich habe OnChange() genommen, aber unter bestimmten Randbedingungen funktioniert es auch mit OnClick().
Grüße vom marabu