Class TFileDrag (unit filedrag) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
destructor Destroy;
procedure DestroyControl;
Subclass the owner so this control can capture the WM_DROPFILES message
procedure DropFiles( hDropHandle: HDrop );
Call Win32 API to register the owner as being able to accept dropped files
procedure InitControl;
procedure SetEnabled( Value: Boolean );
Restore the original window procedure
procedure WndProc( var Msg: TMessage );
This will result in the OnDrop method being called, if it is defined
property DropPoint : TPoint
property EnableDrop : Boolean
property FileCount : Integer
property Files : TStrings
event OnDrop : TNotifyEvent
FDefProc : Pointer;
FDropPt : TPoint;
FEnabled : Boolean;
FNameWithPath : TStrings;
FNumDropped : Integer;
FOnDrop : TNotifyEvent;
FWndHandle : HWND;
FWndProcInstance : Pointer;
constructor Create(AOwner: TComponent);
destructor Destroy;
procedure DestroyControl;
Subclass the owner so this control can capture the WM_DROPFILES message
procedure DropFiles( hDropHandle: HDrop );
Call Win32 API to register the owner as being able to accept dropped files
procedure InitControl;
procedure SetEnabled( Value: Boolean );
Restore the original window procedure
procedure WndProc( var Msg: TMessage );
This will result in the OnDrop method being called, if it is defined
property DropPoint : TPoint
property EnableDrop : Boolean
property FileCount : Integer
property Files : TStrings
event OnDrop : TNotifyEvent
FDefProc : Pointer;
FDropPt : TPoint;
FEnabled : Boolean;
FNameWithPath : TStrings;
FNumDropped : Integer;
FOnDrop : TNotifyEvent;
FWndHandle : HWND;
FWndProcInstance : Pointer;