Drag and Drop von Dateinamen

[calibra301]

Hallo,

verzweifele gerade ein bisschen am Drag&Drop.

Ich habe eine externe Anwendung in die ich Files von einem "hauseigenem" Format per Drag and Drop aus
dem Explorer reinwerfen kann.

Möchte nun ein Tool schreiben welches eine Directory in der mehrere dieser Bilder liegen
ausliesst und in einem TImage darstellt. Das klappt.
Nun möchte ich gern per Drag&Drop diesen "Filename" per Klick auf das Bild und Draggen aus meiner DelphiApp
ins andere Programm ziehen. Wie "verpacke" ich diesen Filenamen in den Drag-Buffer ?

[calibra301]

Hallo,

ein weitere erfolgloser Tag ... Google gequält...

Drag&Drop von irgendwas innerhalb eines Forms kein Problem. Files vom Explorer
in die App auch nicht. Für beides gibts 100te Beispiele.

Gehe ich überhaupt richtig in der Annahme das wenn ich Files vom Explorer so in die Anwendung schmeissen kann
das ich das auch von meiner Delphi App aus kann wenn ich "so tue als ob ich einen File reindroppe" ?

Aktuell versuche ich noch das hier zum laufen zu bekommen:
https://tech-story.net/drag-and-drop...rer-in-delphi/

Bekomme aber den Fehler E2044, Typen der tatsächlien und formalen Parameter sollten übereinstimmen:

DoDragDrop(DataObject, Self, DROPEFFECT_COPY, Effect); So ist das leider mit Copy/Paste Code den man nicht rafft...

Gruss
Calli

[oakley]

Hallo Calli,

ich verwende für dem COM Drop die Drag and Drop Suite, damit hast Du dann beim Drop Zugriff auf den Dateinamen.

https://github.com/DelphiPraxis/The-...ite-for-Delphi

LG

Mirko

[calibra301]

...es war einfach nur ein Typecast.

Anbei das Projekt als ZIP. Vieleicht kanns ja der eine oder andere gebrauchen.

Gruss
Calli

[DenkDirNix]

Hallo calibra,
ich habe Deine Sourcen gut nutzen können, vielen Dank für die Anregung.
Habe das Ganze in eine fix einbindbare Unit mit schmaler Schnittstelle gegossen:

function DragDropToExtern( const DragDir: string; const DragFiles: TStringDynArray; OnBeforeDrop: TFunc<boolean> = nil ): boolean;