Membuat Menu dan Animasi pada Delphi

            Pada praktikum kali ini kita belajar tentang menu dan animasi pada Delphi. Menu dipakai untuk menambahkan item menu pada title bar di Delphi. Sedangkan membuat animasi kita dapat membuatnya dengan menggunakan komponen pallet timer.

Langkah-langkah membuat menu dan animasi sebagai berikut :

1.      Buka Borland Delphi dan buat aplikasi baru

2.      Pada form1 tambahkan komponen berikut dari component pallet :

a.       Label

b.      MainMenu

c.       Timer (pada tab system)

3.      Klik dua kali pada komponen timer, kemudian ketikkan koding berikut :

Maksud dari koding di atas adalah jika label1 sudah berada di -245 dr ukuran form, maka label1 tersebut akan berada pada jarak 465 dihitung dari bagian paling kiri dari form. Kemudian label1.left – 1 digunakan untuk mengurangi 1jarak ke kiri agar tulisan di label tersebut seperti berjalan. Ganti nilai interval sesuai kebutuhan.. Namun disini saya memakai interval 10. Interval terletak pada object inspector saat kita klik timer. Interval digunakan untuk mengatur penundaan eksekusi program yang sedang berjalan. Jika nilai yang ada dalam properties interval semakin diperkecil, kecepatan pergerakan animasi akan semakin cepat. Untuk 1 detiknya diwakili dengan angka 1000.

4.      Buat menu seperti tampilan di bawah dengan cara klik ganda pada komponen menu lalu ubah caption – captionnya.

Saat mengubah caption menu kita dapat menggunakan karakter &. Contoh : &Menu. Pada tampilan menu, karakter M akan bergaris bawah. Karakter & dipakai untuk menyatakan shortcut dari menu. Kita dapat memanggil menu dengan menunjuknya atau tekan alt + M.

5.      Ketikkan koding pada menu exit dengan cara klik menu exit tersebut.

Koding tersebut digunakan untuk menutup aplikasi jika mengklik Exit.

6.      Tambahkan form 2 dengan cara file -> new -> form

7.      Tambahkan komponen pada form 2, yaitu label dan timer.

8.      Ketikkan koding pada timer seperti di bawah :

procedure TForm2.Timer1Timer(Sender: TObject);

begin

label1.Caption := formatdatetime(' "Tanggal : " dd/mm/yyyy', now)+ chr(13) + formatdatetime(' "Pukul       : " hh:mm:ss', now);

end;

Koding tersebut digunakan untuk menampilkan tanggal dan pukul pada label1. Tanggal menggunakan format tanggal/bulan/tahun, sedangkan pukul menggunakan format jam:menit:detik. Chr(13) merupakan kode ascii untuk enter. Jadi antara tanggal dan pukul dipisahkan dengan enter.

9.      Letakkan kursor pada form2. Di events object inspector tepatnya di OnClose pilih FormClose dengan klik tanda anak panah ke bawah, kemudian klik ganda. Ketikkan koding di bawah ini :

Jika kita close form2 maka akan kembali ke form1 dan form2 akan hilang atau tidak muncul.

10.  Kembali ke form1, klik pada item menu Form 2 kemudian ketikkan koding berikut :

Jika Form2 diklik maka form1 akan hilang dan akan menampilkan form2.