Oleh: IRGI RAFAEL
Kali ini kita akan membuat Sebuah Aplikasi Multi-Tabed User Interface Menggunakan komponen pageControl di page Win32 dalam component palete.tetapi berbeda dengan apa yang telah anda tau,masing-masing page adlah sebuah Form.Dengan cara seperti ini kode program akan lebih Managable.
Sebagai Ilustrasi kita akan membuat sebuah aplikasi yang tampilannya hanya satu Form tetapi terdiri dari beberapa Form bahkan tak terhingga^__^.Bila dengan cara biasa maka code dan design akan berbeda untuk setiap page dan berada dalam satu Unit dan satu Form yang sanagn Besar(Source codenya mungkin sampai ribuan baris.Program seperti itu sangat tidak managable serta sulit jika dikerjakan secara Team.
Untuk itu kita akan membuat Form2 yang dibutuhkan dan meletakannya ke Tabsheet pada pageControl,untuk setiap Tabsheet merupakan satu Buah Form.Dari pada pada Bingung mening langsung kita Praktek ok!!!
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.
Langkah-langkah:
-Buka Delphi anda
-Letakan sebuah component PageControl
-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
Ini tmpilan design nya:
– Tekan F12
- Tambahkan pada klausa Uses dibawah Implementation Unit2 sampai Unit 6
- Klik Tab Event pada Object Inspector
dan pilih Event OnShow
- Lalu ketikan code berikut:
implementation
uses Unit2,Unit3,Unit4,Unit5,Unit6;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
Procedure pagetoform(vtab:TTabsheet;vform:TForm);
Begin
vform.BorderStyle:=bsNone;
vform.Align:=alClient;
vtab.Caption:=vform.Caption;
vform.Parent:=vtab;
end;
begin
pagetoform(Tabsheet1,Form2);
pagetoform(Tabsheet2,Form3);
pagetoform(Tabsheet3,Form4);
pagetoform(Tabsheet4,Form5);
pagetoform(Tabsheet5,Form6);
end;
- Tekan F9/ Run
NAh!!!keren kan??Jadi dengan begitu anda bisa membuat aplikasi yang User Interfacenya terdiri dari satu Form tapi sebenarnya terdiri dari beberapa Form,jadi untuk Coding dan Design nya jadi lebih Managable..Anda bisa memvariasikannya dan mengmbangkannya sesuai kebutuhan.Sekian Tutorial Delphi Multi-Tabed User Interface.
Selamat MEncoba,Senoga bermanfaat.
Multi-Tabed User Interface
Author: Irgi Rafael ·
Kali ini kita akan membuat Sebuah Aplikasi Multi-Tabed User Interface Menggunakan komponen pageControl di page Win32 dalam component palete.tetapi berbeda dengan apa yang telah anda tau,masing-masing page adlah sebuah Form.Dengan cara seperti ini kode program akan lebih Managable.
Sebagai Ilustrasi kita akan membuat sebuah aplikasi yang tampilannya hanya satu Form tetapi terdiri dari beberapa Form bahkan tak terhingga^__^.Bila dengan cara biasa maka code dan design akan berbeda untuk setiap page dan berada dalam satu Unit dan satu Form yang sanagn Besar(Source codenya mungkin sampai ribuan baris.Program seperti itu sangat tidak managable serta sulit jika dikerjakan secara Team.
Untuk itu kita akan membuat Form2 yang dibutuhkan dan meletakannya ke Tabsheet pada pageControl,untuk setiap Tabsheet merupakan satu Buah Form.Dari pada pada Bingung mening langsung kita Praktek ok!!!
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.
Langkah-langkah:
-Buka Delphi anda
-Letakan sebuah component PageControl
-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
Ini tmpilan design nya:
– Tekan F12- Tambahkan pada klausa Uses dibawah Implementation Unit2 sampai Unit 6
- Klik Tab Event pada Object Inspector
dan pilih Event OnShow
- Lalu ketikan code berikut:
implementation
uses Unit2,Unit3,Unit4,Unit5,Unit6;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
Procedure pagetoform(vtab:TTabsheet;vform:TForm);
Begin
vform.BorderStyle:=bsNone;
vform.Align:=alClient;
vtab.Caption:=vform.Caption;
vform.Parent:=vtab;
end;
begin
pagetoform(Tabsheet1,Form2);
pagetoform(Tabsheet2,Form3);
pagetoform(Tabsheet3,Form4);
pagetoform(Tabsheet4,Form5);
pagetoform(Tabsheet5,Form6);
end;
- Tekan F9/ Run
NAh!!!keren kan??Jadi dengan begitu anda bisa membuat aplikasi yang User Interfacenya terdiri dari satu Form tapi sebenarnya terdiri dari beberapa Form,jadi untuk Coding dan Design nya jadi lebih Managable..Anda bisa memvariasikannya dan mengmbangkannya sesuai kebutuhan.Sekian Tutorial Delphi Multi-Tabed User Interface.Selamat MEncoba,Senoga bermanfaat.
Related Articles
- Shortcut Keyboard untuk Photoshop
- Membuat Gambar ASCII
- Akses Registry Windows Menggunakan VB.NET
- Beberapa Strategi Menghasilkan Uang Melalui Internet
- Teknik Seleksi Photoshop CS
- Merubah Foto Gelap Menjadi Lebih Soft dan Terang
- Cara Cepat Membuka Aplikasi di Windows
- Sedikit Trik Rahasia Facebook
- Membuat Program Perhitungan dengan If
- TCP/IP dan Praktek Sekuriti Jaringan
- Langkah Mudah Mengurutkan Data di Excel 2007
- Membuat Dialog Killer dengan Delphi 7.0
- Form Cantik dengan Delphi
- Multimedia Instructional – 7. Masking Animation
- Multi-Tabed User Interface
- Membuat PopUp Menu pada Klik Kanan Mouse
- Tips Jitu Menangani Virus Makro
- Hack Game Comand and Concuer
- Cara Memenage BandWidth di Hotspot dengan NetCut dan AntiNetCut
- Penggunaan Pen Tool Pada Macromedia Flash
Tidak ada komentar:
Posting Komentar