| Class TDropWatch (unit drwatch) |
TComponent
| Constructors |
Constructor Create(anOwner: TComponent);| Functions |
Destructor Destroy;
procedure Hook;
procedure SetEnabled(val: Boolean);
procedure SetWatchControl(val: TWinControl);
procedure Unhook;
procedure HookWndProc(var Message: TMessage);| Properties |
property Enabled : Boolean
property WatchControl : TWinControl| Events |
event OnFilesDropped : TFilesDroppedEvent| Variables |
fEnabled : Boolean;
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 : TWinControlPublished-Deklarationen
| Events |
event OnFilesDropped : TFilesDroppedEvent| Variables |
fEnabled : Boolean;Private-Deklarationen
fHookRunning : Boolean;
fOnFilesDropped : TFilesDroppedEvent;
fWatchControl : TWinControl;
NewWndProc : Pointer;
OldWndProc : TFarProc;