Drop files event

The drop files event will be invoked when the user drops one or multiple dragged files on one of application's forms.

First this event should be fired for target form (or main form if drop target is unknown), then for the application.

Possible implementation for LCL

TDropFilesEvent = procedure (Sender: TObject; const FileNames: Array of String) of Object;

Add OnDropFiles: TDropFilesEvent to TCustomForm, TApplication and TApplicationProperties. Each form will have property AllowDropFiles: Boolean, which enables this event.

Possible implementation per widgetsets

The widgetsets should call method IntfDropFiles of target form (or main form if drop target is unknown) and the application.

Win32/64

• set DragAcceptFiles for every form
• respond to WM_DROPFILES message

GTK1/2

• enable: gtk_drag_dest_set
• respond to drag_data_received signal

Qt

• enable widget by setAcceptDrops(true)
• respond to dragEnterEvent by event->acceptProposedAction for mime-type text/uri-list
• respond to dropEvent
• docs: 1

Carbon

• respond to kAECoreSuite/kAEOpenDocuments event to open application associated files
• modify Application Bundle

Related bug reports

• bug 1772
• bug 8976

TODO

1. implement for Qt already implemented (during 0.9.27)

From the Free Pascal wiki, page "Drop files event", as it stood on 2017-04-05 after a change by Bart, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.