Class TWaitForm (unit WaitDlg)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure BeginWait;


Properties

Events

Variables

BitBtn1 : TBitBtn;


ElapLab : TLabel;


Label1 : TLabel;


Label2 : TLabel;


ProcLab : TLabel;


Timer1 : TTimer;


hProc : THandle;

Public declarations

Start : double;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure BeginWait;


Properties


Events


Variables


BitBtn1 : TBitBtn;


ElapLab : TLabel;


Label1 : TLabel;


Label2 : TLabel;


ProcLab : TLabel;


Timer1 : TTimer;


hProc : THandle;

Public declarations


Start : double;