Drag-and-Drop в Mac OS X

Posted by Chas under Delphi

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

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.

тема на форуме

Похожие статьи

• Массив чекбоксов, как в PHP узнать, какой из чекбоксов выбран?
• Как передать значение из <select> в action формы
• Запретить выход курсора за API форму
• Сравнение операционных систем
• Как создать дочернее окно при нажатии на кнопку?
• Пример использования потока в форме
• Drag And Drop в TTreeView
• Перетаскивание формы в FireMonkey
• Задать свой обработчик событий у формы
• Cвернуть всё кроме моей формы