Home > Statusbar > Menampilkan tanggal dan waktu pada statusbar

Menampilkan tanggal dan waktu pada statusbar

December 20, 2011

langsung aj yah.
tambahkan komponen statusbar yang terletak pada palette win32 dan komponen timer pada palette system kedalam form design,double klik pada statusbar..setelah muncul form panel untuk statusbar,klik Add New untuk menambahkan panel seperti pada gambar berikut ini :

klik salah satu panel yang telah kita tambahkan tadi dan ubah properties width menjadi 100 pada object Inspector seperti pada gambar berikut :

kemudian double klik pada komponen timer yang di tambahkan tadi,lalu ketik coding berikut :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
         StatusBar1.Panels[0].Text:=DateToStr(date);
         StatusBar1.Panels[1].Text:=TimeToStr(time);
end;

jalankan aplikasi :

___________Selemat Mencoba______________

Categories: Statusbar Tags:
%d bloggers like this: