Setelah mempelajari cara membuat menu bar pada arsip 5
Kita lanjutkan bagaimana cara membuat form about dan memanggilnya pada menu Help->About =))
Ikuti langkah-langkah berikut ini :
Kita lanjutkan bagaimana cara membuat form about dan memanggilnya pada menu Help->About =))
Ikuti langkah-langkah berikut ini :
- Buatlah form sebagai berikut
- Buat form about File->New->Other->Form->About Box - Edit About Box Sesuai hati anda
- Jangan lupa pada Form About Button1 / "OK" isikan kode :
void __fastcall TAboutBox::OKButtonClick(TObject *Sender) { Close(); }
- Tambahkan Form About ke form1 /"Menubar"
- Klik form1/berisi menubar/form utama -> (File->Include Unit Hdr (Alt+F11) )
- Pada Help -> About Isilkan kode berikut :
void __fastcall TForm1::About2Click(TObject *Sender) { About->Show(); }
- Maka Saat dijalankan dan Help->About akan tampil seperti ini :
Tidak ada komentar:
Posting Komentar