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 ;
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:
