| Class TNoTask (unit NoTask) |
TComponent
The NoTask Class declaration
| Constructors |
constructor Create(AOwner: TComponent);** Overridden constructor for our component.
| Functions |
destructor Destroy;
procedure Loaded;
procedure ProcessEnabled;
procedure HookParent;
procedure HookWndProc(var Message: TMessage);
Function IsIt:boolean;if (owner as tform).
Procedure SetIt (value:boolean);
procedure UnhookParent;| Properties |
property HideForm : boolean| Events |
| Variables |
FHideForm : boolean;
NewWndProc : Pointer;
OldWndProc : TFarProc;| Constructors |
constructor Create(AOwner: TComponent);Public declarations - Methods
** Overridden constructor for our component. Creates underlying TComponent, ** sets our own method pointer to an unassigned state, and checks that there ** is only one TNoTask Component on the form. If there is another one, ** this one is destroyed by virtue of the exception handler within the design ** mode.
| Functions |
destructor Destroy;Register for Object Inspector
procedure Loaded;** Overridden LOADED method. This ensures that the check for a previous ** instance of our Application is done immediately after the TNoTask ** components properties have been read in from the form, and initialized.
procedure ProcessEnabled;Always call inherited Loaded method
procedure HookParent;Start of Block to trap Parent form's messages...
procedure HookWndProc(var Message: TMessage);The window procedure that is installed into our parent.
Function IsIt:boolean;Private declarations - Methods
if (owner as tform).windowstate<>wsMinimized then exit;
Procedure SetIt (value:boolean);
procedure UnhookParent;Install it as the new Parent window procedure
| Properties |
property HideForm : booleanPublished declarations
| Events |
| Variables |
FHideForm : boolean;Private declarations - Attributes
NewWndProc : Pointer;
OldWndProc : TFarProc;