Bu kontrol ile, belirli süreler içerisinde bazi kontroller yapilabilecegi gibi animasyonlar da yapilabilir.Timer kontrolü çalisma zamaninda görünmez. Komutlari OnTimer bölümüne yazilir.
Companent Palet / System / Timer butonu forma yerlestirilir.
PROPERTIES
1) Interval : Bu özellik OnTimer olayinda meydana gelecek olan zaman araligini belirler. Birimi Milisaniye olup 0 ile 2.147.483.647 arasinda bir deger alir. 1 saniye aralikla islem yapilmasi için Interval degeri 1000 verilir. ÖRNEK 1: Tarih - Saat gösterimi
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=DateToStr(date); //bilgisayar tarihini her saniyede oku label1'e yaz
label2.Caption:=timetostr(time); //bilgisayr saatini her saniyede oku
end;
ÖRNEK 2 : Yanan sönen lamba.
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Visible:=true;
image2.Visible:=false;
timer2.Enabled:=true;
timer1.Enabled:=false;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
image1.Visible:=false;
image2.Visible:=true;
timer2.Enabled:=false;
timer1.Enabled:=true;
end;