| Class TfWorking (unit Fwrking1) |
TForm
| Constructors |
| Functions |
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure StopButtonClick(Sender: TObject);| 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 ;