Membuat Form Yang Seragam

Dear Delphiers,
Kadang kita menghendaki semua form yang ada di dalam aplikasi kita seragam. Misalnya, di setiap form kita menghendaki ada tombol New,Edit,Save dan Delete. Bagi pemula, biasanya mereka akan membuat sebuah form yang dijadikan acuan ketika membuat form-form baru. Ketika membuat form baru yang mereka lakukan pertama kali ada mengkopi form acuan tersebut kemudian me-Rename form tersebut menjadi form yang mereka kehendaki. Hal ini bisa saja dilakukan, tapi kurang Robust. Coba bayangkan, ketika terjadi perubahan misalkan dalam kasus ini klien menghendaki di setiap form ditambahkan tombol Help. Dengan cara di atas, maka kita harus lakukan adalah membuka tiap form lalu menambahkan tombol Help. Pusingkan?


Dear Delphiers,
Kadang kita menghendaki semua form yang ada di dalam aplikasi kita seragam. Misalnya, di setiap form kita menghendaki ada tombol New,Edit,Save dan Delete. Bagi pemula, biasanya mereka akan membuat sebuah form yang dijadikan acuan ketika membuat form-form baru. Ketika membuat form baru yang mereka lakukan pertama kali ada mengkopi form acuan tersebut kemudian me-Rename form tersebut menjadi form yang mereka kehendaki. Hal ini bisa saja dilakukan, tapi kurang Robust. Coba bayangkan, ketika terjadi perubahan misalkan dalam kasus ini klien menghendaki di setiap form ditambahkan tombol Help. Dengan cara di atas, maka kita harus lakukan adalah membuka tiap form lalu menambahkan tombol Help. Pusingkan?

Sebenarnya ada cara yang lebih Robust. Yaitu dengan memanfaatkan konsep yang sangat mendasar di Object Oriented Programming, yaitu Inheritance. Ikuti langkah – langkah berikut ini :
1. Buat sebuat project (saya memakai BDS 2010)
2. Buat sebuat main form, form ini nanti akan kita pakai untuk menampilkan form-form di aplikasi ini. Simpan form tersebut dengan ufrmMain. Jangan lupa namakan form ini dengan frmMain.
3. Tambahkan menu untuk menampilkan form, misalnya Form 1, dan Form 2.




4. Buatlah sebuah form yang akan dijadikan acuan untuk mebuat form-form yang lain. Tambahkan komponen Toolbar, lalu tambahkan empat tombol pada toolbar tersebut. Ubah caption tombol tersebut dengan New,Save, Edit,Delete. Namakan tombol-tombol tersebut dengan nama btnNew, btnSave, dst. Simpan form ini dengan ufrmDefault.
5. Buatlah dua buah form, turunkan dari form ufrmDefault yang baru saja dibuat. Caranya Klik File > New > Other > Inheritable Items > Pilih frmDefault. Setelah itu akan muncul sebuah form yang sama persis dengan frmDefault. Namakan form tersebut dengan frmSatu. Simpan form ini dengan nama ufrmSatu. Perhaitkan pada baris deklarasi kelas TfrmSatu. Di situ tertulis :

TfrmSatu = class(TfrmDefault)
private
{ Private declarations }
public
{ Public declarations }
end;

Maksud dari deklarasi tersebut adalah kelas TfrmSatu merupakan turunan dari TfrmDefault




6. Ulangi langkah ke lima dan simpan form tersebut dengan ufrmDua. Jangan lupa namakan form tersebut frmDua.
7. Langkah selanjutnya adalah kita tampilkan form tersebut. Ingat, kita tadi sudah membuat dua menu di frmMain. Sekarang kita isi menu-menu itu dengan perintah untuk menampilkan frmSatu dan frmDua. Caranya klik menu untuk menampilkan formSatu, lalu isi dengan perintah di bawah ini :

frmSatu := TfrmSatu.Create(Self);
frmSatu.Show;

Lakukan hal yang sama untuk formDua.
8. Langkah terakhir, Klik F9 untuk menjalankan project ini. Coba klik menu untuk fomSatu dan formDua. Sama persiskan? Kita tinggal mengisi form tersebut sesuai kebutuhan. Mudah bukan? SELAMAT BERKARYA