Pfad von Tree View auslesen lassen

[mschaefer]

Moin, Spätmoin,

Ein Ansatz ist folgender:

Delphi-Quellcode:

{ im OnClick-Ereignis des TreeViews }

var   MyTreeNode  : TTreeNode;
      MyPath      : string;
begin
      MyPath      := '';
      
      { aktuell angeclickten Node nehmen}
      MyTreeNode  :=  TreeView.Selected;

      { nach oben laufen von Parent zu Parent bis kein Parent mehr}
      while MyTreeNode.Parent <> nil do
      begin
         MyPath  :=  MyTreeNode.Text + '\' + MyPath;
         MyTreeNode := MyTreeNode.Parent;
      end;

      { Endslash eliminieren }
      MyPath := copy(MyPath,1,Pred(Length(MyPath )));

      LabelPath.Caption := MyPath;
end;

Grüße und gut Nacht // Martin