Drag&Drop mit Dateien: Files geht verloren

[philipp.hofmann]

Hi,

wie kann man unter FMX eine Datei per Drag&Drop einfügen?

Mit dem folgenden Code geht es schon mal nicht. Ich sehe zwar, dass das Drag&Drop funktioniert,
aber im Ziel-Feld wird das TDragObject nicht als File erkannt und somit abgelehnt:

Delphi-Quellcode:

procedure TicTrainerF.doBrowserDragDrop(Sender: TObject);
var
  Svc: IFMXDragDropService;
  DragData: TDragObject;
begin
  if (TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService,Svc)) then
  begin
    DragData.Source:=sender;
    DragData.Data:=dragDropFilename;
    setLength(DragData.Files,1);
    DragData.Files[0]:=dragDropFilename;
    Svc.BeginDragDrop(Self,DragData,bitmapContainer.Items[6].Bitmap);
  end;
end;

Ich habe es mittlerweile auch im EMBT-DragDrop-Example nachstellen können. Wenn ich innerhalb der gleichen Exe-Instanz ein File verschiebe, dann geht dies und es wird auch im Drop-Field als File erkannt. Verschiebe ich es in eine zweite Exe-Instanz wird nur der String erkannt und das File ist verloren gegangen (siehe png-Datei).

Woran kann dies liegen?

Grüße, Philipp

[philipp.hofmann]

Jetzt auch mit nachvollziehbarem Beispiel

[KodeZwerg]

Ich probiere es mal anhand des DragAndDrop example von Embarcadero nachzustellen.

[Michael II]

Zitat von philipp.hofmann:

Jetzt auch mit nachvollziehbarem Beispiel

Nachvollziehbar, wenn man TMSirgendwas installiert hat - hab ich nicht.
Und wenn ich das Beispiel von Emba unter Win 10 (10.0.19042.508) lade ..\Documents\Embarcadero\Studio\21.0\Samples\Objec t Pascal\Multi-Device Samples\User Interface\DragAndDrop und Text oder Bild irgendwo hinziehe und fallen lasse (n möchte), dann geht's nicht. Die App reagiert danach nicht mehr auf Klicks (bleibt im Drag hängen) und muss via TM gekillt werden, da auch Delphi "nicht mehr klickbar" ist.

[KodeZwerg]

Also mit 10.3 läuft zwar das example bei mir, nur macht es anscheinend nichts oder ich habe nicht verstanden wie ich es zu bedienen habe.
Mir fehlt irgendwie ein drop ziel.

[philipp.hofmann]

Ja, ich hatte daher genau dieses Example so erweitert, dass es auch ein Drop-Ziel hat, ZIP-Anhang ein paar Kommentare weiter oben.
Damit kann man das Problem dann nachvollziehen.

[Michael II]

Zitat von philipp.hofmann:

Ja, ich hatte daher genau dieses Example so erweitert, dass es auch ein Drop-Ziel hat, ZIP-Anhang ein paar Kommentare weiter oben.
Damit kann man das Problem dann nachvollziehen.

Wie in #4 erwähnt: Du verwendest in deinem Beispiel TTMSFMXBitMapContainer. (Fehler beim Erzeugen von Formular: Klasse TTMSFMXBitmapContainer nicht gefunden.).