Membuat Main

Program Delphi juga menyediakan fasilitas untuk pembuatan Menu dan PopUpMenu. Menu tersebut akan menghubungkan atara form satu dengan form lainnya. kita langsung mulai gan....

- Jalankan dahulu program delphi, lalu buka fom baru.
- Pilih Mainmenu  yang terdapat pada Tab Standar dan letakkan didalam form.
- Klik ganda pada Mainmenu maka akan muncul gambar berikut :
- Pada Object Inspector pilih propertis dan pada Caption isi dengan &File lalu Enter. maka akan tampil gambar berikut :
- Lakukan hal yang sama sehingga seperti gambar berikut :
    *Untuk membuat garis pada main menu isikan caption dengan strip (-)

- Untuk membuat SubMenu ke samping Klik pada Entry lalu tekan CTRL + tanda Panah Kekanan. isikan pada caption seperti gambar berikut.
      * &File, &Entry, &Exit, Data &Mahasiswa, Data Mata &Kuliah

Selanjutnya kita akan memberikan Gambar pada menu tersebut, caranya :
- Tambahkan komponen ImageList pada tab Win32. lalu letakkan pada form
- Klik Ganda pada Komponen ImageList
- klik Tomol Add
- dan cari gambar yang berekstensi *.bmp atau *.icon. bila sudah ketemu pilih gambar tersebut misalnya 3 gambar lalu klik Open dan OK. untuk kembali pada form

- Klik Kemabli pada komponen mainmenu. dan pada propertis pilih images lalu pilih imageLis1.
- Klik ganda pada MainMenu. lalu pilih menu ayng akan diberi gambar misalnya Entry pada property, pilih ImageIndex klik Dropdown dan pilih gambarnya.
- Lakukan hal yang sama pada Data Mahasiswa dan Data Mata Kuliah.
- Buat 2 buah form baru untuk Form Data Mahasiswa dan Data Mata Kuliah. sehingga tampil Form2 dan Form3
- Rubah property namenya untuk Form1 menjadi F_MHS dan Form3 menjadi F_MK.
- Kembali ke Form1. dengan cara klik View-> Forms.
- Klik File -> pilih Entry -> Klik Data Mahasiswa.
- Tuliskan Kode berikut diantara begin dan end;
    FMHS.Show;
- Klik kembali File-> Pilih Entry -> Klik Data Mata Kuliah
- Tuliskan Kode berikut diantara Begin dan End;
     FMK.Show;
- Tuliskan Kode berikut diantara Begin dan End;
- save projek tersebut pada folder yang agan sediakan.
- Jalankan....






0 comments:

Post a Comment

.