How can I allow a form to accept file dropping without handling Windows messages?

Question

In Delphi XE can I allow my form to accept file \'drag and drop\' but without having to handle bare windows messages?

Answer 1

I used David Heffernan's solution as base for my test application and got 'Invalid pointer operation' on application close. The solution for that problem was to change the TDropTarget.Create by adding '_Release;'

constructor TDropTarget.Create(AHandle: HWND; const ADragDrop: IDragDrop);
begin
  inherited Create;
  FHandle := AHandle;
  FDragDrop := ADragDrop;
  RegisterDragDrop(FHandle, Self);
  _Release;
end;

A discussion about this problem you can see on Embarcadero forum.