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