[Delphi] Form di PageControl

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.

antasdelpi.blogspot.com

Untuk contoh pembuatan silahkan coba Langkah-langkah berikut :
-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
Lihat potongan Code dibawah ini :

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;

Silahkan dicoba...

Posted by Antas Delphi on - Rating: 4.5

Title : [Delphi] Form di PageControl
Description : Apa maksudnya Form di PageControl ?  itu adalah dimana form saat dipanggil muncul pada satu menu utama dan berada pada PageControl. Kataka...