| Class TWarningForm (unit FmWarErr) |
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);
procedure ModalWarning( MessageStr: string);
procedure Warning( ShowTime: single; MessageStr: string);| 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;