Translate

Senin, 26 November 2012

Membuat Multi Form Pages

Pernahkan terbetik keinginan Anda untuk membuat aplikasi dengan banyak form, namun ditampilkan dalam bentuk page seperti tampilan Delphi?

















Teknik yang saya gunakan dalam program saya, adalah ‘menempelkan’ form pada tabsheet page control. Apa pengertian ‘menempel’ yang saya maksud?

Ketika misalkan Anda membuat suatu form, dimana Anda meletakkan control TPanel pada form, kemudian meletakkan control TEdit pada TPanel, maka yang terjadi adalah control TPanel itu ‘menempel’ pada form, dan control TEdit menempel pada TPanel.

Apa yang terjadi ketika suatu control itu ‘ditempelkan’ pada control yang lain? Yang terjadi adalah Property Parent pada control yang ditempelkan itu merujuk pada control yang ditempeli. Jadi pada kasus di atas, Property Parent pada TPanel merujuk pada form, sedangkan Property Parent pada TEdit merujuk pada TPanel.

Nah, kita bisa merubah letak suatu control ditempatkan dengan merubah-rubah Property Parentnya, sepanjang control untuk tujuan tempelannya ini adalah merupakan Container.

Apa itu Container? Suatu kontrol dikatakan Container apabila ia dapat ‘menampung’ atau ‘ditempeli’ control yang lain, misalkan control TPanel, TForm, TabSheet, dan lain-lain.

Pada aplikasi saya, saya mengisikan pada property Parent TForm kepada TabSheet yang saya kehendaki.

Anda bisa download contoh source codenya di
http://www.ziddu.com/download/20979336/multiformpages.zip.html


4 komentar:

  1. Thanks gan its work,, tp ada 1 masalah yaitu:
    ketika kita close tab, kmudian kita klik button untuk buka tab itu terjadi error gan.. gmn solusinya tuh?

    BalasHapus
  2. kalo untuk menutup semua tab yang open gimana ?

    BalasHapus
  3. jika ingin mengambil data dari form yang dibuka melalui form yg ada di tab gimana ya mas biar tidak terjadi ERROR ?
    terimakasih sebelumnya

    BalasHapus
  4. Maaf sblmnya. Link SC nya telah expire. Mohon bantuannya utk reupload lagi. Terima kasih
    Note : cara ini bs dipakai dilazarus ? Terima kasih

    BalasHapus