Dateien auf Form ziehen funktioniert nicht

[Tyler]

TurboDelphi Free:

Hallo,

aus dem Delphi Forum hab ich einen Algo, der es ermöglichen soll, dass auf die Form gezogene Dateien
in eine Listbox gezogen werden. Nur leider funktioniert das nicht. Wenn ich die Datei aufs Programm
(Form oder Listbox) ziehe, sehe ich nur den Kreis mit nem Querstrich drin. Nichts passiert.
Hier geistert auch eine etwas umständlichere Methode von den Switzern rum. Dort habe ich das gleiche Problem

Hier mal der Sourcecode, wär schön, wenn da jemand ne Lösung parat hat :)


//EDIT
schlagt mich, tretet mich, beisst mich - ich glaub ich spinne.
Nachdem der Beitrag abgesetzt war, hab ich nochmal kompiliert - da ging es. Ohne Flachs. Nichts geändert, nur nochmal kompiliert. Ich hab bestimmt eine Stunde lang probiert, kompiliert, probiert, kompiliert....ist doch Irrsinn?? oO

[Mackhack]

Und wo is der Source Code oder bin ich blind?

[Christian Seehase]

Moin Mackhack,

der ist wohl leider schon wieder weg :?

Wenn Du hier mal nach DragAcceptFiles suchst, wirst Du aber einiges dazu finden.

[Mackhack]

Hi,

ich kenn die Funktion mit dem Drag and Drop eigentlich. Dank dir! Jedoch wunderte ich mich nur wo sein Source geblieben war :-)

[SirThornberry]

Ich tippe mal wo der Fehler lag. Du setzt DragAcceptFiles im OnCreate der Form. Das Handle welches das Formular zu diesem Zeitpunkt hat wird aber in sehr vielen fällen nochmal frei gegeben und es wird ein neues angefordert (wenn die Formstyles speciell gesetzt wurden oder das Property Position etc.)