Wie DragDrop-Ende signalisieren?

[Benmik]

Das OnEndDrag-Event des Panels findet nicht statt, wenn ich zur Anwendung zurückkehre (z.B. mit ALT-TAB), sondern erst, wenn ich wieder auf das Panel klicke. Bis dahin zeigt der Mauszeiger aber "Kein-DragDrop" und die DragDrop-Aktion ist offensichtlich noch nicht abgeschlossen, was ich gern programmatisch erreichen würde.

[Uwe Raabe]

Wenn du DragSource.Execute(False) (oder nur Execute) aufrufst, wird das DragDrop synchron gestartet und gibt im Result das Ergebnis der Operation zurück. Damit das VCL-Dragging nicht weiter dazwischen funkt, solltest du das über einen Aufruf von Abort am Ende des StartDrag-Events beenden.

Das sollte insbesondere auch beim asynchronen Aufruf erfolgen.

[Benmik]

Zitat von Uwe Raabe:

...Aufruf von Abort am Ende des StartDrag-Events...

Das funktioniert prima - aber leider legt es natürlich auch das DragDrop innerhalb der Delphi-Anwendung lahm. Ich hatte schon überlegt, ob ich die beiden Drag-Modi differenzieren sollte (durch die ALT-Taste, z.B.), aber ich fände es schon nett, wenn das bequemer ginge. Es funktioniert ja auch, man muss am Ende nur kurz nochmal klicken, aber das Ganze stört und ist unelegant.
Man müsste das Abort irgendwie nur dann einklemmen, wenn es ein OnAfterDrop des DropFileSource gegeben hat. Geht das per Message oder so?

[Gausi]

Heißt das, deine Anwendung reagiert selbst nicht auf das Droppen von DragSource? Das solltest du aber tun - nur im Drop rufst du dann nicht die Dateien aus dem D&D-Object ab, sondern rufst den "VCL-Drag&Drop"-Code aus.

Falls du in deiner Anwendung auch den Drop von Dateien (z.B. vom Explorer aus) erlauben willst, dann könntest du die beiden Drop-Varianten z.B. dadurch unterscheiden, dass du beim Beginn eines Drag-Vorgangs ein Flag setzt "Drop von Intern", und dieses bei jedem Drop (inkl. bei OnAfterDrop der Komponente, wenn nach draußen gezogen wurde) zurücksetzt auf "Extern".

Aber generell ist eine Kombination aus OLE-D&D und VCL-D&D keine sonderlich gute Idee. Das merke ich grade selbst auch (vgl. https://www.delphipraxis.net/209613-...-explorer.html). Mein Fall ist da etwas anders, weil mein Problem beim Erlauben bzw. Verbieten der "Move"-Operation liegt. Bzw. kommt bei mir unter Umständen ein doppeltes OnDrop-Event an. Aber das Grundproblem ist gleich: VCL und Windows sind beim Thema Drag&Drop nicht wirklich kompatibel.

[Benmik]

Zitat von Gausi:

...VCL und Windows sind beim Thema Drag&Drop nicht wirklich kompatibel.

Da hast du offenbar Recht. Sowohl von der VCL als auch von der Komponente wird DragDrop gestartet, aber beendet wird es nur von dem, der zum Zuge kommt.

Zum Verständnis: Es geht um Bilddateien, deren Vorschaubilder auf ein Panel gezeichnet sind. Bisher wurde DragDrop innerhalb der Anwendung genutzt (z.B. um Bilder zu verschieben o.ä.). Nun möchte ich aber gern auch Bilder aus dem Panel auf andere Programme ziehen. Das ging bisher auch über ein Kontextmenü, aber mit Nachteilen (u.a. funktioniert das bei einigen Programmen nicht). Konkret geht es hier um die Desktopversion von Signal, wo man durch Ziehen die Bilder direkt an einen bestimmmten Kontakt senden kann. Wenn also BeginDrag startet, dann weiß das Programm noch nicht, was der Anwender vorhat (er selbst vielleicht auch noch nicht).

Ich brauche also VCL und OLE. Es funktioniert ja auch, aber beide werden gestartet und einer "hängt" dann, bis man noch einmal klickt. Wenn ich bei DragBegin durch eine Tastenkombination festlegen würde, um welche Aktion es geht, dann wäre das Problem gelöst (und da ist Abort sehr hilfreich), aber ich hätte es natürlich gern "automatisch".

(Muss jetzt arbeiten, kann also erst wieder heute Abend weitermachen).

[Uwe Raabe]

Du musst dich für eins entscheiden: OLE oder VCL. Wenn du OLE brauchst und gleichzeitig die eigene Anwendung auch als Drop-Target herhalten soll, dann kannst du das mit der TDragTarget Komponente derselben Library realisieren.

[Benmik]

Zitat von Uwe Raabe:

... kannst du das mit der TDragTarget Komponente derselben Library realisieren.

Das merke ich mir mal für später. Zurzeit müsste ich da einiges programmieren, das lohnt im Moment nicht.
Ich habe es jetzt so gelöst, dass das Gedrückthalten einer bestimmten Taste auf die Komponente umleitet und dabei Uwes Abort eingesetzt wird.

Vielen Dank euch beiden.