FireMonkey, Drag-and-Drop, Mac OS X. (Delphi XE3)

[XerSon]

Всем Привет,

Есть форма, при перетягивании на неё файла, получить полный путь к фаилу?

Буду рад любому совету или примеру!

[XerSon]

Сорри за лень, разобрался сам. Может кому пригодится:

1. Create a new FMX HD application.

2. Add a TDropTarget control (optional - support is actually implemented at the form level, 
with the form then passing things on to the FMX control - which can be any sort of control - under the mouse).

3. Handle the TDropTarget control's OnDragOver and OnDropped events like this:

procedure TForm1.DropTarget1DragOver(Sender: TObject; const Data: TDragObject;
const Point: TPointF; var Accept: Boolean);
begin
Accept := True;
end;

procedure TForm1.DropTarget1Dropped(Sender: TObject; const Data: TDragObject;
const Point: TPointF);
var
S: string;
begin
for S in Data.Files do
ShowMessage(S);
end;

4. Run the application.