Unit DDDest |
===================== DRAG AND DROP DESTINATION HELPERS ======================} { } { These components are intended to provide an easy way to implement drag and } { drop of files into a Delphi application. } { } { TDnDRun - items which have been dropped on the application's icon on } { either the desktop or filemanager/explorer } { TDnDForm - items dropped on a form } { TDnDControl - items dropped on a control (TWinControl only) } { Delphi 1 only: } { TDnDIcon - dropped on a minimised application icon. } { } { Each component produces the same three events: } { DnDStart - sent before the items dropped list is sent } { DnDItem - sent for each item dropped } { DnDFinish - sent when all items have been sent } { } { *Warning* I have tested the code under Delphi 3 *ONLY*. I have NOT tested } { ------- ---- --- } { it under Delphi 1 or Delphi 2. Some parts of this code are Delphi 1, } { infact one of the components will only appear under Delphi 1. All I can say } { is that the code looks ok. Delphi 1 and 2 users use this code on this } { understanding. I would appreciate comment that it is ok or corrections. } { } { Version 1.00 } { Grahame Marsh 16 October 1997 } { } { Freeware - you get it for free, I take nothing, I make no promises! } { } { Please feel free to contact me: grahame.s.marsh@courtaulds.com } { } { Revison History: } { Version 1.00 - initial release 16-10-97 } { } {==============================================================================
Classes |
TDnDControl -
TDnDForm -
TDnDRun -
Functions |
DroppedCount -
DroppedItem -
Register - === DROPPED ON AN ICON APP ===================================================
Types |
Constants |
Variables |
Functions |
Types |
TDnDItemEvent = procedure (Sender: TObject; const Item: string) of object
TDnDStartEvent = procedure (Sender: TObject; Count, X, Y: integer) of object
Constants |
Variables |