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

Информатика. Программирование в Delphi
250
Form1.BorderStyle:=bsDialog;
//разрешение работы таймера
Timer1.Enabled:=true;
end;
8. В инспекторе объектов для кнопки BitBtn1 создайте процедуру
BitBtn1Click – обработчик события OnClick.
//выполняется при щелчке по кнопке увеличения часов
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//увеличение количества часов
inc(AHour);
//если количество часов больше 23
if AHour>23 then
AHour:=0;
//если количество часов меньше 10
if AHour<10 then
//вывод количества часов на экран
Label2.Caption:='0'+IntToStr(AHour)
else
//вывод количества часов на экран
Label2.Caption:=IntToStr(AHour)
end;
9. В инспекторе объектов для кнопки BitBtn2 создайте процедуру
BitBtn2Click – обработчик события OnClick.
//выполняется при щелчке по кнопке уменьшения часов
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
//уменьшение количества часов
dec(AHour);
//если количество часов меньше нуля
if AHour<0 then
AHour:=23;
//если количество часов меньше 10
if AHour<10 then
//вывод на экран количества часов
Label2.Caption:='0'+IntToStr(AHour)
else
//вывод на экран количества часов
Label2.Caption:=IntToStr(AHour)
end;
10. В инспекторе объектов для кнопки BitBtn3 создайте процедуру
BitBtn3Click – обработчик события OnClick.