Menampilkan Form Di Dalam Form

Hi…Sobat kali ini saya akan bagi ilmu tentang cara menampilkan form di dalam form. Ini yang sering saya lakukan kalo bikin program, saya suka bangat tampilannya kaya program berbasis web gitu hanya muncul di form itu terus dan program yang kita buat juga tidak terlalu banyak makan memory. Kalau para master udah pasti tau cara ini tapi saya akan bagi ilmu kepada calon master (Pemula) supaya terinspirasi untuk belajar pemrograman khususnya Delphi. Baiklah kayanya udah banyak ceramah dari tadi, jadi penasaran ini orang mau belajar.

OK kita mulai langkah-langkanya adalah:

Pertama skali jalankan aplikasi Delphinya, kemudian bikin 2 atau 3 form, Dalam percobaan ini saya bikin 3 form yaitu:

Form Master Data

2. Form Transaksi

3. Form Utama (Form yang muncul pada saat pertama kali program dijalankan)

Pada percobaan ini saya akan menampilkan Form Master Data dan Form Transaksi pada Form Utama.

Desain Form Master Data

Silahkan desain form kaya gambar diatas dan setting Komponennya seperti pada table dibawah:

Component	Properties	Value
Form1	Caption	Master Data
	Name	FormMasterData
	Align	alClient
	BorderStyle	bsNone

Desain Form Transaksi

Silahkan desain formnya dan setting Komponennya seperti pada table dibawah:

Component	Properties	Value
Form2	Caption	Transaksi
	Name	FormTransaksi
	Align	alClient
	BorderStyle	bsNone

Desain Form Utama

Pada form utama ini kita bikin menu untuk memanggil form Master Data dan form Transaksi (Lihat gambar diatas). Saya rasa sobat udah pintar bikin menu jadi saya tidak perlu lagi jelaskan bagaimana cara bikin menu atau kalau mau pake yang lain juga bisa misalkan Button, BitBtn, dll yang penting codingnya benar.

OK jika sudah selesai bikin 3 form tadi, sekarang kita masuk ke coding. Masukan source code pada menu-menu yang kita bikin tadi pada form utama.

1 Dibawah ini Source code pada menu Master Data:

procedure TFormUtama.MenuMasterDataClick(Sender: TObject);

begin

FormMasterData.Parent:=FormUtama; //penempatan form master data pada form utama

FormTransaksi.Close; //close form transaksi

FormMasterData.Visible:=true; // menampilkan form master data

end;

2 Dibawah ini source code pada menu Transaksi:

procedure TFormUtama.MenuTransaksiClick(Sender: TObject);

begin

FormTransaksi.Parent:=FormUtama;

FormMasterData.Close;

FormTransaksi.Visible:=true;

end;

Kalo sudah jangan lupa save dulu programnya, Ingat setting Form Utama supaya muncul pertama kali pada saat program dijalankan. Jika udah selesai settingannya semua coba jalankan programnya.

Uji coba Form Utama pertama muncul pada saat program dijalankan