Merci Dr.Who pour cette proposition.
J'ai essayé de créer un composant avec ton code. A la compilation, il y a des problèmes :
constructor Create(AOwner: TComponent; const IsAuto: boolean); override;
--> la classe ancètre TComposent ne dispose pas d'un tel constructeur. Donc, override ne peut être appliqué
Dans l'implémentation de ce constructeur, tu évoques la variable "result". Il n'y a pas de telle variable dans un constructeur.
1 2 3 4 5 6 7
| constructor TCustomComponent.Create(AOwner: TComponent; const IsAuto: Boolean);
begin
case IsAuto of
false : result := TNormalComponent.Create(AOwner);
true : result := TAutoComponent.Create(AOwner);
end;
end; |
Je ne suis pas allé plus loin.
Mais pour autant que ces problèmes se résolvent, est-ce que je verrai soit l'une soit l'autre propriété dans l'inspecteur d'objet en créant l'un ou l'autre des composants Auto ou Normal ?
Cordialement.
Pierre
Partager