TTimer

//TTimer

{

TTimer adalah Sebuah komponen yang berguna untuk membuat Suatu Event yang berjalan terus
Jadi ttimer berisikan Event ("ONTIMER") maksudnya pada saat Berjalan

Jadi jika komponennya enable atau aktif maka pada saat itu pula kode didalamnya berjalan terus

Dan Di timer ada Property "Interval" atau Waktu Jeda Tiap2 Putaran Kode Tersebut.
Batas  Interval = 1 - 1000 =
Interval atau batas jeda memakai Type Milisecond

interval 100 = 1 detik ..

Sebagai COntoh Saya Akan Membuat form berkedip tiap 10 detik

Sebelumnya Masukkan Komponen ( Ttimer )
Dan Masukkan kode kedalam Event timer (ONTIMER)

}

//============================================

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Form1.Color = clBlack  then
form1.Color := clWhite

else
Form1.Color := clBlack ;

end;

//============================================


{

Jadi Kode ini berjalan terus menerus saat pada property timer (enable) menjadi true ..

Dan Maksud dari kode diatas adalah ..


if Form1.Color = clBlack  then  =   "jika color.form1 = clblack maka "
form1.color := clwhite          =   "color.form1 adalah clwhite"

else   =   "Selain dari pada itu"
Form1.color := Clblack =   "color.form1 adalah clblack"


}