Class TWarningForm (unit FmWarErr)

Inherits from

TForm

Exports TWarningBox which can display warnings while the application keeps running. and terminate the application when its method Error is called. C.A. van Beest, R.P. Sterkenburg, TNO-PML, Rijswijk, The Netherlands 28 Feb 97: - replaced Windows with Wintypes, WinProcs in uses clause to make compilation under Delphi 1 possible 23 Apr 97: - Form changed - Proc. ModalWarning added - Proc. Warning changed - Unnecessary button related procedures deleted 24 Apr 97: - added use of unit MoreUtil (imports Sleep for Delphi1) - added comments - ShowTime now rounded to msec in stead of seconds 28 May 97: - Appearance of form changed

Constructors



Functions

procedure Error( MessageStr: string);

Imports Sleep

procedure ModalWarning( MessageStr: string);

TWarningForm.

procedure Warning( ShowTime: single; MessageStr: string);

TWarningForm.

Properties

Events

Variables

CancelBtn : TButton;


Memo1 : TMemo;


OKBtn : TButton;



Constructors


Functions


procedure Error( MessageStr: string);

Imports Sleep


procedure ModalWarning( MessageStr: string);

TWarningForm.Error


procedure Warning( ShowTime: single; MessageStr: string);

TWarningForm.ModalWarning


Properties


Events


Variables


CancelBtn : TButton;


Memo1 : TMemo;


OKBtn : TButton;