Membuat Menu Aplikasi di Delphi 7

Membuat Menu Aplikasi di Delphi 7

1. Buat Project sebuah baru anda, dari menu File -> New -> Application,maka akan otomatis ada form1
2. Buat beberapa form baru di dalam project anda tersebut. Dari menu File -> New -> Form, pada contoh ini saya membuat 3 form yaitu Form1 (sebagai menu utama), Form2 dan Form3 sebagai Form prompt ketika di klik salah satu menu.
3. Jangan lupa menyimpan project dan form-form anda, dari menu File -> Save All.
4. Mulai membuat menupada Form1 letakkan object MainMenu yang ada ditab Standar. Klik kanan pada MainMenu1 -> Menu Designer. maka akan ada tampilan edit menu.

Klik pada area biru gambar diatas, kemudian pada properties Caption ketikkan “Document“, kemudian enter. Satu menu utama sudah terbuat.Untuk membuat menu dari Document, klik pada menu document, akan ada satu area menu yang masih kosong, klik kemudian pada caption ketikkan Baru dan enter, dan seterusnya untuk menu-menu lain.

Untuk membuat garis pembatas antar menu, cukup ketikkan - (tanda min), pada caption.

Untuk membuat sub menu dari menu Baru, klik kanan pada Menu Baru -> Create Sub Menu, klik pada satu area kosong dari sub menu baru, kemudian ketik Dokument Kosong. Demikianjuga untuk membuat menu-menu.

Close windows editor menu untuk selesai dan kembali ke design Form1. Jika berhasil maka pada form1 sudah ada menu-menu yang kita buat.

5. Membuat Form show/dan showmodal.untuk contoh ini, Form2 akan ditampilkan jika dipilih menu Document -> Buka.
   pilih menu Document dan klik Buka, maka akan masuk ke lebar source code, Kodenya adalah

Form2.Show;

atau bisa juga

Form2.ShowModal.

Apa perbedaan antara kedua kodenya?

Jika menggunakan fungsi show, maka form1 dan form2 bisa bertukar tempat, artinya form1 bisa diatas Form2 dan Form2 bisa diatas form1. Tapi ShowModal akan membuat Form1 sebagai menu utama selalu berada dibelakang, dan Form2 akan selalu berada diatas (Always on Top).

6. Simpan kembali project anda.
7. Run / F9 untuk eksekusi.ketika run akan ada pesan berikut

Pilih Yes, bahwa benar Form1 mereferensikan form dua di unitnya.