Class TfWorking (unit Fwrking1)

Inherits from

TForm

Constructors



Functions

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

stop if they press escape key

procedure StopButtonClick(Sender: TObject);

stop if they press the button

Properties

Events

Variables

Bevel1 : TBevel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


LRecord : TLabel;


Step2Panel : TPanel;


StopButton : TBitBtn;


bContinue : boolean ;



Constructors


Functions


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

stop if they press escape key


procedure StopButtonClick(Sender: TObject);

stop if they press the button


Properties


Events


Variables


Bevel1 : TBevel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


LRecord : TLabel;


Step2Panel : TPanel;


StopButton : TBitBtn;


bContinue : boolean ;