Firemonkey Drag&Drop

[OnlyOne]

Hallo,

ich würde gerne den Inhalt bzw. das Bild einer Image Komponente in eine andere
Image Komponente per Drag&Drop ziehen.
Dies war in einer Vcl Anwendung kein Problem aber bei FMX stellt ist das schon anders.
Es fehlen so zum Beispiel die Proceduren BeginDrag oder Accept.
Nun weis ich nicht wie ich dies in FMX realisieren soll.

Danke im Voraus.

Gruß OnlyOne

[Sir Rufo]

Welche Delphi Version?

[OnlyOne]

Zurzeit verwende ich XE6

[Sir Rufo]

Einmal https://forums.embarcadero.com/threa...ssageID=447850

Zweimal fmx drag and drop (reichlich)

[OnlyOne]

Habe gehofft es gäbe eine schöne (einfache) Möglichkeit ohne Prozeduren zu überschreiben
oder mit dem Dragmode "dmManual".
Aber trotzdem Danke

[Harry Stahl]

Eigentlich brauchst Du nichts zu überschreiben.

Ab Delphi XE6 wurde das "Accept" (Boolean) in der Ereignisprocedure "DragOver" durch "Operation" (TDragOperation) ersetzt. Statt Accept = True (oder false) setzt Du nun mit den einzelnen Auswahlmöglichkeiten für "Operation" (TDragOperation.xyz) das gewünschte Verhalten. "None" setzt Du, wenn keine Operation erlaubt sein soll, dann zeigt die Komponente auch keine grafische Rückmeldung an (bei den anderen Optionen erscheint der blaue Auswahlrahmen).

Bei der Image-Komponente kannst Du z.B. DragMode auf "dmAutomatic" setzen, damit der Drag-Vorgang automatisch gestartet werden kann.

Im "OnDragDrop"-Event kannst Du dann entsprechend reagieren.