Kamis, 17 November 2011

Jam Analog Delphi

1. Masukkan Label dan Timer
2. double klik timer 
3. ketik
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(time);
end;
4.jalankan program

Tidak ada komentar:

Poskan Komentar