Membuat Pop-Up Menu pada Delphi
Tutorial ini merupakan kelanjutan dari tutorial membuat menu, tapi kali ini kita akan membuat Pop-UpMenu. Cara kerja dari Pop-UpMenu ini adalah apabila kita klik kana pada sembarang tempat, maka akan tampil menu..
Cara membuatnya adalah :
- Buka kembali projec yang kemarin telah dibuat.
- Tambahkan pada form1 komponen popupmenu pada Tab Standar
- Setelah ditambahkan, Klik ganda pada komponen popupmenu
- Isi popupmenu seperti pada pembuatan MainMenu seperti gambar berikut :
Cara membuatnya adalah :
- Buka kembali projec yang kemarin telah dibuat.
- Tambahkan pada form1 komponen popupmenu pada Tab Standar
- Setelah ditambahkan, Klik ganda pada komponen popupmenu
- Isi popupmenu seperti pada pembuatan MainMenu seperti gambar berikut :
- Tambahkan Komponen Panel dari Tab Standar pada Form1.
- Ubah Property Panel Sebagai Berikut :
Caption : Aku Bisa Berubah Loh...
BevelInner : bvlowered
BevelOuter : bvraised
BevelWidth : 3
- Atur Desainya seperti gambar berikut :
- Setelah selesai, Klik Panel1 lalu pada property isikan PopupMenu dengan PopupMenu1.
- Agar terdapat gambar pada property panel1. untuk Image isikan dengan ImageList1.
- Setelah selesai jalankan....
- Klik Kanan pada panel, maka PopupMenu pun muncul....
Karena belum dituliskan Sintak pada popup menu, maka belum terjadi sesuatu.
Selanjutnya adalah pemberian Sintak.
- Klik ganda pada PopUpMenu
- Klik Ukuran -> Klik Ganda pada 12, isikan dengan sintak berikut.
panel1.Font.Size:=12;
- Lakukan hal yang sama untuk ukuran 14, 16, 18, dan 20.
- Klik ganda pada PopUpMenu, pilih Warna -> Klik ganda pada Merah lalu isikan sintak berikut :
panel1.Font.color:=clred;
Ulangi hal yangsama untuk Biru : panel1.Font.color:=clblue;
Ulangi hal yangsama untuk Kuning : panel1.Font.color:=clYellow;
Ulangi hal yangsama untuk Hijau :panel1.Font.color:=clgreen;
- Klik ganda pada PopUpMenu, pilih Style-> Klik ganda pada Bold lalu isikan sintak berikut :
Panel1.Font.Style:=[FSBOLD];
Ulangi hal yang sama untuk Italic : panel1.Font.Style:=[FSItalic];
Ulangi hal yang sama untuk Underline : panel1.Font.Style:=[FSUnderline];
Setelah selesai maka jalankan,...
Setelah selesai maka jalankan,...
Semoga Bermanfaat......
0 comments:
Post a Comment