Создадим секундомер, который будет отсчитывать время по нажатию на кнопку «Старт», после чего она меняет свое название на «Стоп».
Оформите окно программы как показано на рисунке.
Для компонента Timer установите в свойстве Enabled значение False и Interval – 10. Для компонента Edit установите Text – «0.0». Опишите глобальную переменную tic – счетчик тиков.
Var
Form1: TForm1;
Tic: LongInt;
procedure TForm1.FormCreate(Sender: TObject);
Begin
Tic:=0;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
if Timer1.Enabled then
Begin
Timer1.Enabled:=False;
BitBtn1.Caption:='&Старт';
End
else
Begin
timer1.Enabled:=true;
BitBtn1.Caption:='&Стоп';
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
Begin
Tic:=0;
Edit1.Text:='0.0';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var seс:Real;
s:string;
Begin
Tic:=Tic+1;
Sec:=Tic/10;
Str(Sec: 10:1, S);
Edit1.Text:=S;
// бегущая строка
if Label2.Left=0 then
Label2.Left:=ClientWidth-100
else
Label2.Left:=Label2.Left-1;
end;
