TreeView - Pfad zusammensetzen ?

[Blackheart]

Hatt sich erledigt, danke an alle die Mir geholfen haben.
Hier die Lösung für alle die dieses Problem auch mal haben.

Delphi-Quellcode:

Function GetTreeNodePath (aNode: TTreeNode; aDiv: String): String;
Begin
  If Assigned (aNode) Then
    If Assigned (aNode.Parent) Then
      GetTreeNodePath := GetTreeNodePath (aNode.Parent, aDiv) + aDiv + aNode.Text
    Else
      GetTreeNodePath := aNode.Text
  Else
    GetTreeNodePath := '';
End;

procedure TForm1.TreeChange(Sender: TObject; Node: TTreeNode);
begin
  Label3.Caption := GetTreeNodePath (Node, '\');
end;

Blackheart