Drop files event

The files drop 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

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

Add OnFilesDrop: TFilesDropEvent to TCustomForm, TApplication and TApplicationProperties.

The widgetsets should call method IntfFilesDrop of target form, which would invoke the OnFilesDrop event of the form and also of the application.

Possible implementation per widgetsets

Win32/64

• set DragAcceptFiles for every form
• respond to WM_DROPFILES message

Carbon

• respond to kAECoreSuite/kAEOpenDocuments event to open application associated files
• respond to kAECoreSuite/kAEOpenContents event, where content format is typeFSRef