Class TfsDropFiles (unit fsDrpFls)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Msg.


Functions

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.

Properties

property Active : Boolean


property DropWindow : TWinControl


Events

event OnDropFiles : TNotifyEvent


Variables

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


Constructors


constructor Create(AOwner: TComponent);

Msg.


Functions


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.


Properties


property Active : Boolean


property DropWindow : TWinControl


Events


event OnDropFiles : TNotifyEvent


Variables


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