Form di PageControl

----------------------

TENTANG SAYA

Nama saya Lengkapnya adalah Yudi Permana, Saya memang Bukan Seorang Blogger, Desainer atau Apapun Tapi Saya Hanya Seseorang Yang Ingin Selalu Belajar dan Ingin Tahu Sesuatu Yang Baru. Saya hanya Bisa Mengutak Atik yang ada Tanpa Tau Apa Maksud dan Tujuannya. Mohon Untuk Tidak Tersinggung Bila Ada Sesuatu yang sama Dari Blog Ini...

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Apa maksudnya Form di PageControl ? itu adalah dimana form saat dipanggil muncul pada satu menu utama dan berada pada PageControl.
Katakanlah Form Utama terdiri dari 5 page.kita memerlukan 5 buah Form tambahan,jadi seluruhnya kita perlu 6 buah Form.Form Utama kita beri nama FormUtama,Formlainnya kita beri nama page1,page2 dst.

Screen Shot

Langkah-langkah:
-Buka Delphi anda
-Letakan sebuah component PageControl yang ada di Tab Win32
-Ubah properti Align pageControl menjadi alClient
-klik kanan pada PageControl dan pilih NewPage sampai 5 kali.
-Ubah Caption Form1 menjadi Form_Utama
-Tambahkan 5 buah Form lagi dan ubah masing-masing caption menjadi page1,page2 dst

implementation
uses Unit2,Unit3,Unit4,Unit5,Unit6;
{$R *.dfm}

Procedure pagetoform(vtab:TTabsheet;vform:TForm);
Begin
vform.BorderStyle:=bsNone;
vform.Align:=alClient;
vtab.Caption:=vform.Caption;
vform.Parent:=vtab;
vform.Visible:=true;
vform.show;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
pagetoform(Tabsheet1,Form2);
pagetoform(Tabsheet2,Form3);
pagetoform(Tabsheet3,Form4);
pagetoform(Tabsheet4,Form5);
pagetoform(Tabsheet5,Form6);
end;

Mangga dicoba Sob...