Penerapan atribut Induk. Seringkali orang mengabaikan keberadaan atribut Parent. Lalu biarkan dia memamerkan kekuatannya.
Lihat hal bagus ini:
satuan Sunting1;
antarmuka
kegunaan
Windows, Pesan, SysUtils, Kelas, Kontrol, StdCtrls;
jenis
TSParent = kelas(TEdit)
Pribadi
{Deklarasi pribadi}
terlindung
{ Deklarasi yang dilindungi }
publik
{Pernyataan publik}
diterbitkan
{ Deklarasi yang dipublikasikan }
milik Induk;
akhir;
prosedur Daftar;
pelaksanaan
prosedur Daftar;
mulai
RegisterComponents('Sampel', [TSParent]);
akhir;
akhir.
Instal kontrol ini. Buat proyek baru.
Seret kontrol TSParent pada halaman Sampel. Apakah menurut Anda ini bukan kontrol TEdit?
Jika Anda lihat lagi, ia memiliki atribut Parent tambahan. Ini luar biasa, wadahnya dapat dikustomisasi sesuka hati selama desain, dan dapat digunakan sebagai wadah terlepas dari apakah kontrol lain memiliki atribut wadah atau tidak. TPanel, TEdit, TMemo ibarat setan yang ada dimana-mana.
Kontrol ini memiliki dua kelemahan. 1) Formulir tidak dapat dicantumkan dalam daftar atribut Induk. Mengapa? Pikirkan sendiri. 2) Daftar properti Induk sebenarnya dapat mencantumkan kontrolnya sendiri.
Tapi cara mengatasinya mudah, cukup buat editor properti sendiri.