Form di dalam Form Delphi

anda tentu sering menggunakan aplikasi-aplikasi yang dibangun oleh para developer. entah itu aplikasi yang bersifat berbayar atau free alias gratisan. dari aplikasi-aplikasi yang pernah digunakan tersebut tentu kita sering mendapat ide semisal meniru desain, tampilan, alur program dan hal-hal lain. Contohnya seperti yang akan saya bahas pada postingan ini yaitu bagaimana membuat form berada didalam form.

Sebagai gambaran, pada contoh disini akan terdapat tiga buah form. Form pertama akan kita gunakan sebagai Form Utama (Form Parent). Berikut Form kedua dan ketiga akan kita manfaatkan sebagai Form Child atau form yang akan muncul didalam form Utama. Terdapat juga komponen Panel yang akan digunakan untuk meletakan form child serta menu untuk memanggil form child. Bagaimana, Sampai disini ada gambaran?

1. Buat 3 Buah Form dalam Projek anda, kemudian simpan

2. Tambahkan Unit Form kedua dan ketiga kedalam uses Unit form pertama

3. Tambahkan sebuah menu untuk memanggil form kedua dan ketiga 

4. Tambahkan sebuah komponen panel. set property | Align = alClient 

Adapun contoh coding untuk memanggil masing-masing form adalah sebagai berikut. Jika masih kurang jelas, anda dapat mendownload contoh source code (projek) disini. selamat mencoba. happy coding. :)

procedure TForm1.FormSatu1Click(Sender: TObject);
var
form_anak_satu : TForm2;
begin
form_anak_satu:=TForm2.Create(nil);
form_anak_satu.Parent:=Panel1;
form_anak_satu.Align:=alClient;
form_anak_satu.Show;
end;

procedure TForm1.FormDua1Click(Sender: TObject);
var
form_anak_dua : TForm3;
begin
form_anak_dua:=TForm3.Create(nil);
form_anak_dua.Parent:=Panel1;
form_anak_dua.Align:=alClient;
form_anak_dua.Show;
end;