Bu örnek ile basit bir kronometre yapabilirsiniz
Bunun İçin Formumuza İlk Önce Bir Timer Nesnesi Ekleyelim
ve Sonra 4 Tane Label Bir Tanede Buton Ekleylelim ve Timerin
Enabled Değerini False ve İnterval Değerini 10 Yapalım ve
Timerin İçine Şu Kodları Yazalım:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+ 1);
if (Label1.Caption='60') then
begin
Label1.Caption:='00';
Label2.Caption:=IntToStr(StrToInt(Label2.Caption)+ 1);
end;
if (Label2.Caption='60') then
begin
Label2.Caption:='00';
Label3.Caption:=IntToStr(StrToInt(Label3.Caption)+ 1);
end;
if (Label3.Caption='60') then
begin
Label3.Caption:='00';
Label4.Caption:=IntToStr(StrToInt(Label4.Caption)+ 1);
end;
end;
end.
Ve Sonrasında Butona İse Şu Kodları:
if Timer1.Enabled=False then
Timer1.Enabled:=True
else
Timer1.Enabled:=False;
(Burada Butona Bastığımız Zaman Sayacın Başlaması Tekrar Bastığımız Zaman İse Durması Olayı Gerçekleşir)