Delphi: Menampilkan Jam Pada Status Bar

A. StatusBar

1. Klik StatusBar di WIN32

2. Klik di Form

3. Double klik StatusBar (biasanya ada di paling bawah form atau di tampilan Object Treeview)

4. Tekan tombol Add New (Insert) 2x

5. Klik pada 0-TstatusPanel, ubah:

- Width menjadi 150 (pada Object Inspector: Properties)

- Ubah Text: LPK Sydney (pada Object Inspector: Properties)

B. Timer

1. Klik Timer di SYSTEM (gambar jam)

2. Klik di Form

3. Double klik pada Timer yang sudah ada di form kita

4. Ketik listing program berikut ini:

StatusBar1.Panels[1].Text:=TimeToStr(time);

5. Simpan (Shift+Ctrl+S)

C. Jalankan Program:

Tekan tombol F9 di keyboard!

atau

Di Delphi, klik menu RUN, kemudian klik lagi submenu RUN!

Hasilnya seperti berikut:

Catatan: Ukuran Form di atas mungkin berbeda, form anda boleh jadi lebih besar.

Sumber:

Komarudin Tasdik. 2009. Modul Delphi 7. LPK Sydney, Bandung.

Usup Supendi. 2002. Modul Delphi 7. AMIK al-Ma’soem, Bandung.