Стр. 255 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
255
Label5: TLabel;
Edit1: TEdit;
Button1: TButton;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
AHour,AMin,ASec:integer;
implementation
uses DateUtils;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=false;
Timer1.Interval:=1000;
Timer1.Tag:=0;
Form1.BorderStyle:=bsDialog;
Timer1.Enabled:=true;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
inc(AHour);
if AHour>23 then
AHour:=0;
if AHour<10 then
Label2.Caption:='0'+IntToStr(AHour)
else
Label2.Caption:=IntToStr(AHour)
end;