Shelltreeview + Drag Drop?? Pfad unter der Maus?

[beatles]

Entweder es ist so simpel dass ich den Wald vor lauter Bäumen nicht sehe, oder es ist wirklich kompliziert.

Ich möchte gern Dateien mittels Drag & Drop aus einer Listview in in das ShellTreeView ziehen. Danach soll die Datei in den Ordner verschoben werden. Dazu muss ich aber den Pfad rausbekommen, welcher gerade unter der Maus ist. Das winzige was ich bisher rausbekommen habe ist, wie der Ordner heisst, aber nicht den Pfad.
Rekursiv durchsuchen lassen wäre unsinn, da man ja manchmal gleichnamige Ordner auf der Festplatte hat.

Wie kann man den Pfad im Shelltreeview des gewählten Order erhalten?


den Ordnernamen ermittle ich mit:

Delphi-Quellcode:

procedure TForm1.ShellTreeView1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  showmessage( ShellTreeView1.DropTarget.Text);
end;

Danke im Voraus

[omata]

Moin,

versuch mal folgendes

Delphi-Quellcode:

procedure TForm.ShellTreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
var Node:TTreeNode;
begin
  Node:=ShellTreeView1.GetNodeAt(X, Y);
  if assigned(Node) and assigned(Node.Data) then
    showmessage(TShellFolder(Node.Data).PathName);
end;

MfG
Thorsten

[beatles]

Hallo Omata,
danke Dir, funktioniert einwandfrei.

hätte ich nur gleich gefragt, hätte ich mir Zeit gespart.