Hier mal ein Beispiel, um die Dateinamen per Windows Explorer (bzw. auf dem MAC vom Finder aus) in ein Memofeld zu ziehen:
Delphi-Quellcode:
procedure TForm6.Memo1DragDrop(Sender: TObject; const Data: TDragObject;
const Point: TPointF);
var
S: string;
begin
if (Data.files <> NIL) then
begin
for S in Data.Files do
TMemo (Sender).lines.Add (s);
end;
end;
procedure TForm6.Memo1DragOver(Sender: TObject; const Data: TDragObject;
const Point: TPointF; var Operation: TDragOperation);
begin
Operation := TDragOperation.Copy;
end;
Hinweis: In meinem letzten FMX-Buch zu Delphi 10.2 findest Du bei Bedarf unter Rezept 12 ein Beispiel, mit dem man Text z.B. aus den meisten Web-Browsern per Drag & Drop in sein Programm (z.B. ein Edit-Feld) ziehen kann.