Class TNoTask (unit NoTask)

Inherits from

TComponent

The NoTask Class declaration

Constructors


constructor Create(AOwner: TComponent);

Public declarations - Methods

** Overridden constructor for our component.



Functions

destructor Destroy;

Register for Object Inspector

procedure Loaded;

** Overridden LOADED method.

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).


Procedure SetIt (value:boolean);


procedure UnhookParent;

Install it as the new Parent window procedure

Properties

property HideForm : boolean

Published declarations

Events

Variables

FHideForm : boolean;

Private declarations - Attributes

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 : boolean

Published declarations


Events


Variables


FHideForm : boolean;

Private declarations - Attributes


NewWndProc : Pointer;


OldWndProc : TFarProc;