-->

SIPITUAMA

"Sistem Informasi Penyajian Ilmu Teknologi, Uni Akademis, dan Manajemen Administrasi"
Sedang Proses...Orang Sabar Banyak Rejeki, Complete 90%.... Tunggu...Loadingnya Hampir 100% ................................................... ..................... ......

Saturday, 16 February 2019

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:  































































































Share:

0 komentar:

Post a Comment

.............Radio Streaming.............


Add Request Song to Live Streaming

PERATURAN

GRATIS BERLANGGANAN

Isikan Alamat Email:

Berlangganan Gratis

PENDIDIKAN

SPEKTAKULER