Class TDropWatch (unit drwatch)

Inherits from

TComponent

Constructors


Constructor Create(anOwner: TComponent);

Public-Deklarationen


Functions

Destructor Destroy;


procedure Hook;


procedure SetEnabled(val: Boolean);

Protected-Deklarationen

procedure SetWatchControl(val: TWinControl);


procedure Unhook;

Convert our object method into something Windows knows how to call } { Install it as the new Parent window procedure

procedure HookWndProc(var Message: TMessage);

Reset variables to NIL

Properties

property Enabled : Boolean


property WatchControl : TWinControl

Published-Deklarationen

Events

event OnFilesDropped : TFilesDroppedEvent


Variables

fEnabled : Boolean;

Private-Deklarationen

fHookRunning : Boolean;


fOnFilesDropped : TFilesDroppedEvent;


fWatchControl : TWinControl;


NewWndProc : Pointer;


OldWndProc : TFarProc;



Constructors


Constructor Create(anOwner: TComponent);

Public-Deklarationen


Functions


Destructor Destroy;


procedure Hook;


procedure SetEnabled(val: Boolean);

Protected-Deklarationen


procedure SetWatchControl(val: TWinControl);


procedure Unhook;

Convert our object method into something Windows knows how to call } { Install it as the new Parent window procedure


procedure HookWndProc(var Message: TMessage);

Reset variables to NIL


Properties


property Enabled : Boolean


property WatchControl : TWinControl

Published-Deklarationen


Events


event OnFilesDropped : TFilesDroppedEvent


Variables


fEnabled : Boolean;

Private-Deklarationen


fHookRunning : Boolean;


fOnFilesDropped : TFilesDroppedEvent;


fWatchControl : TWinControl;


NewWndProc : Pointer;


OldWndProc : TFarProc;