Class TfsDropFiles (unit fsDrpFls) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- Msg.
destructor Destroy;
noone else around - better set up the office
procedure Loaded;
function SafeDropWindow: TWinControl;
Tried to use this as GetDropWindow, but Delphi didn't behave when
Result was never nil.
procedure SetActive(pActive: Boolean);
i am the last one alive - so i'll turn the lights out
procedure SetDropWindow(ADropWindow: TWinControl);
procedure WndProc(var Msg: TMessage);
This is the message handler for the hidden window that TfsDropFiles use,
and which the WM_DROPFILES messages are redirected to.
property Active : Boolean
property DropWindow : TWinControl
event OnDropFiles : TNotifyEvent
DropPoint : TPoint;
Files : TStringList;
DropHWnd : HWnd;
The logic behind this isn't easy to grasp, unless you
know that SetActive is called first, then SetDropWindow, then Loaded
during the initialization phase of the component.
FActive : Boolean;
Redirected WM_DROPFILES messages go to this window,
so that we may set up a handler for it within this component.
FDropWindow : TWinControl;
FOnDropFiles : TNotifyEvent;
Inited : Boolean;
Private declarations
constructor Create(AOwner: TComponent);
Msg.
destructor Destroy;
noone else around - better set up the office
procedure Loaded;
function SafeDropWindow: TWinControl;
Tried to use this as GetDropWindow, but Delphi didn't behave when
Result was never nil. So ok, a nil value (blank in P.E.) means the form.
procedure SetActive(pActive: Boolean);
i am the last one alive - so i'll turn the lights out
procedure SetDropWindow(ADropWindow: TWinControl);
procedure WndProc(var Msg: TMessage);
This is the message handler for the hidden window that TfsDropFiles use,
and which the WM_DROPFILES messages are redirected to.
property Active : Boolean
property DropWindow : TWinControl
event OnDropFiles : TNotifyEvent
DropPoint : TPoint;
Files : TStringList;
DropHWnd : HWnd;
The logic behind this isn't easy to grasp, unless you
know that SetActive is called first, then SetDropWindow, then Loaded
during the initialization phase of the component.
FActive : Boolean;
Redirected WM_DROPFILES messages go to this window,
so that we may set up a handler for it within this component.
FDropWindow : TWinControl;
FOnDropFiles : TNotifyEvent;
Inited : Boolean;
Private declarations