JBK Borland Delphi 7

Menu dan Frame

Pokok Bahasan :

Memakai Menu
Membuat Sub Menu
Event Oncontextpopup
Membuat item Menu secara Dinamik
Menu yang Owner-Draw
Frame Sederhana
Frame bersarang
Membuang Frame
Frame Master Detil

Memakai menu

Menu memberikan cara yang mudah untuk menjalankan kelompok perintah-perintah. Menu Designer memungkinkan Anda untuk menambahkan sebuah menu ke dalam form. Anda hanya perlu menambahkan sebuah komponen menu ke dalam form, membuka Menu Designer dan mengetikkan item-item menu pada jendela Menu Designer. Pada saat perancangan, Anda dapat menambah, menghapus item-item menu, atau drag dan drop untuk mengatur ulang. Ada dua komponen menu, yaitu MainMenu dan PopUpMenu. Komponen MainMenu membuat menu yang menempel pada title bar dari form. Sedangkan PopUpMenu membuat menu pada saat user mengklik kanan pada form atau pada sebuah komponen. Kita akan membuat sebuah aplikasi yang memakai MainMenu dan PopUpMenu.

1. Buatlah aplikasi baru, ubah caption dari form menjadi ‘Mencoba Menu’.

2. Tambahkan MainMenu, PopUpMenu dan Edit. MainMenu dan PopUpMenu adalah komponen NonVisual, jadi Anda dapat menempatkannya di mana saja.

3. Pilih MainMenu dan kita akan membuka Menu Designer. Caranya:

· Klik ganda pada komponen menu.

· Dari page Properties Object Inspector, pilih Items, lalu klik ganda [Menu} pada kolom isian atau klik tanda (…).

Menu Designer ditampilkan dengan item pertama yang kosong dan dipilih.

4. Ketikkan &Pilihan. Karakter & dipakai untuk menyatakan shortcut dari menu. Pada tampilan menu, karakter P akan bergaris bawah. Pada saat menjalankan aplikasi, Anda dapat memanggil menu dengan menunjuknya atau tekan Ctrl+P.

5. Sekarang kita akan mengisikan item pertama (Edit Warna Biru). Klik ganda item tersebut dan Anda akan masuk ke Code Editor dan isikan:

Edit1.Color := clBlue;

6. Selanjutnya untuk item kedua dan ketiga, masing-masing isikan:

Edit1.Color := clMenu ;

dan

Edit1.Color := clLime ;

7.      Tekan tombol Close untuk mengakhiri main menu.
8.      Kita akan mengisi PopUpMenu. Dari form, klik ganda pada PopUpMenu, sekali lagi Anda akan masuk ke Menu Designer dan isikan item-item menu berikut.
Teks Warna K&uning Teks Warna Me&rah Teks Warna &Default
9.      Untuk setiap item isikan:

Edit1.Font.Color := clYellow ; Edit1.Font.Color := clRed ; Edit1.Font.Color := clWindowText ;

10. Terakhir untuk item Keluar, isikan:

Application.Terminate ;

PopUpMenu1 akan ditampilkan jika Anda mengklik kanan pada komponen Edit1. Untuk menghubungkan kedua komponen tersebut, klik Edit1. Dari Object Inspector, pilih property PopUpMenu, Anda dapat mengklik anak panah bawah dan pilih PopUpMenu1. Rancangan

form: