Application de l'attribut Parent. Les gens négligent souvent l’existence de l’attribut Parent. Alors laissez-le montrer son pouvoir.
Découvrez ces bonnes choses :
unité Edit1 ;
interface
utilise
Windows, Messages, SysUtils, Classes, Contrôles, StdCtrls ;
taper
TSParent = classe (TEdit)
Privé
{Déclarations privées}
protégé
{ Déclarations protégées }
publique
{Déclarations publiques}
publié
{ Déclarations publiées }
propriété Parent;
fin;
registre de procédure ;
mise en œuvre
registre de procédure ;
commencer
RegisterComponents('Échantillons', [TSParent]);
fin;
fin.
Installez ce contrôle. Créez un nouveau projet.
Faites glisser un contrôle TSParent sur la page Exemples. Diriez-vous qu’il ne s’agit pas d’un contrôle TEdit ?
Si vous regardez à nouveau, il possède un attribut Parent supplémentaire. C'est étonnant, son conteneur peut être personnalisé à volonté lors de la conception et il peut être utilisé comme conteneur, que d'autres contrôles aient ou non des attributs de conteneur. TPanel, TEdit, TMemo sont comme un diable qui existe partout.
Ce contrôle présente deux inconvénients. 1) Le formulaire ne peut pas être répertorié dans la liste des attributs parent. Pourquoi ? Pensez-y vous-même. 2) La liste de propriétés Parent peut en fait répertorier ses propres contrôles.
Mais c'est facile à résoudre. Créez simplement un éditeur de propriétés vous-même.