Class TDragDrop (unit MGDrgDrp)

Inherits from

TComponent

Constructors


constructor Create(AOwner:TComponent);

Protected declarations


Functions

procedure ClearList;

Add the item

destructor Destroy;

Activate (or don't) the capturing of WM_DROPFILES

procedure HookParent;

Accept drops at all?

Call TComponent's default destroy meathod


procedure HookWndProc(var Message: TMessage);


procedure SetActive(YesNo:Boolean);


procedure UnhookParent;

Install Hook

Properties

property Active : Boolean


property BringToFront : Boolean


property DroppedFiles : TStringList


Events

event OnFilesDropped : TFilesDropped


Variables

FActive : Boolean;

Bring to front?

FBTF : Boolean;

Store dropped files

FFilesDropped : TFilesDropped;

Define Event

FList : TStringList;

Field Variables

NewWndProc : Pointer;


OldWndProc : TFarProc;

Proc Pointers


Constructors


constructor Create(AOwner:TComponent);

Protected declarations


Functions


procedure ClearList;

Add the item


destructor Destroy;

Activate (or don't) the capturing of WM_DROPFILES


procedure HookParent;

Accept drops at all?

Call TComponent's default destroy meathod


procedure HookWndProc(var Message: TMessage);


procedure SetActive(YesNo:Boolean);


procedure UnhookParent;

Install Hook


Properties


property Active : Boolean


property BringToFront : Boolean


property DroppedFiles : TStringList


Events


event OnFilesDropped : TFilesDropped


Variables


FActive : Boolean;

Bring to front?


FBTF : Boolean;

Store dropped files


FFilesDropped : TFilesDropped;

Define Event


FList : TStringList;

Field Variables


NewWndProc : Pointer;


OldWndProc : TFarProc;

Proc Pointers