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