MENU Materi 4 DOWNLOAD DI l http 192

MENU Materi 4 DOWNLOAD DI l http: //192. 168. 2. 6/~jaidup/delphi

MENU n n n Menu dapat dibuat yaitu dengan drop down menu dan pop up menu Untuk membuat menu ikuti langkah-langkah berikut Tutup semua aplikasi anda dengan file – close ALL Buat sebuah projek baru dengan file-new – application Tambahkan komponen berikut Satu label, satu edit, satu button dan satu drop down (main menu)

Main menu dapat di tempatkan di sembarang tempat

n Klik kanan pada main menu, sehingga akan muncul window menu, kemudian pilih menu designer n Ganti captionnya sehingga menghasilkan tampilan sebagai berikut

Desain menu dengan susunan style Tebal Miring Normal Ukuran 10 12 16 20 Keluar n

n n Tutup menu designer Jika mau menambah elemen menu, lakukan dengan hal yang sama Untuk menghapus, klik kanan akan muncul pop up menu, kemudian pilih delete Selanjutnya ubah properti caption dari label 1 menjadi “pengaturan menggunakan menu” n Atur tampilanya supaya lebih menarik misalnya jenis huruf, ukuran maupun warnanya

n Untuk menuliskan programnya maka klik pada style, kemudian pilih tebal akan muncul sebuah procedure TForm 1. ebal 1 Click(Sender: TObject); begin Edit 1. Text: = label 1. Caption; Edit 1. Font. Style : = edit 1. Font. Style +[fsbold]; end; Lengkapilah program itu untuk style, ukuran dan keluar

POP UP MENU n n Untuk membuat pop up menu secara prinsip sama dengan membuat main menu Letakkan pop up menu di dalam form Klick kanan untuk memunculkan popup menu, kemudian pilih menu designer Lakukan pengisian yang sama dengan main menu

n Untuk menulis programnya, klik pada menu (misalnya merah) makan muncul procedure TForm 1. Merah 1 Click n Lengkapi procedure itu dengan edit 1. font. color: = clred; lakukan hal yang sama untuk menu yang lain yaitu Hijau, Kuning dan Hitam n

Menghubungkan pop up dengan komponen n n Jika pop up menu akan dihubungkan dengan edit 1, maka lakukan hal berikut Tempatkan kursor(mouse pada edit 1) Atur properti popupmenu dengan memilih nama popup menu yang ada Jalankan projek anda

Membuat sub menu n n n Untuk membuat sub menu ikuti langkah berikut Double Klik pada komponen mainmenu 1 yang ada pada form Sehingga akan muncul menu designer

Double clik

Klik kanan pada mouse, maka akan muncul pop up menu Pilih create submenu

n n Lakukan hal yang sama dengan membuat menu yaitu mengubah caption, dan untuk membuat programnya, double clik pada sub menu dan akan muncul sebuah procedure Jika untuk membuat sub menu dari sub menu adalah sama

latihan n n Buatlah sebuah projek, dengan menutup semua aplikasi anda (close ALL), kemudian new application Tambahkan 2 buah form (Sehingga memiliki 3 buah form yaitu form 1, form 2 dan form 3) Perhatikan gambar berikut

Klik untuk menambah form

n n n SIMPAN UNIT DAN PROJEK ANDA, MISALNYA UNIT 1 MENUUTAMA UNIT 2 PELANGGAN UNIT 3 -> BARANG PROJEK 1 ->PPELANGGAN

form 1 n n Pada form 1 desainlah menu dengan tingkatan sebagai berikut File Input data pelanggan barang Keluar Transaksi Laporan

form 2 Densain form untuk dapat menginput No. Pelanggan Nama Pelanggan Alamat Pelanggan Kota Telp Dan satu button untuk kembali n

Form 3 n n n Sama seperti dengan form 2, tempatkan komponen untuk menginput Kode barang Nama barang Satuan Harga satuan

n n n BUATKAN JUGA POPUP MENU DARI FORM 1 DENGAN MENU PELANGGAN BARANG TRANSAKSI LAPORAN

Pada form 1 procedure TForm 1. Pelanggan 1 Click(Sender: TObject); begin form 2. Show end;