Neftali [Germán.Estévez]
30-06-2006, 11:29:14
Necesito crear una propiedad y quiero que cualquier componente que tenga ésta utilize el editor de propiedades que estoy registrando.
Creo la propiedad "HayVerdura". Debería hacer algo así:
RegisterPropertyEditor( TypeInfo( Boolean ),
nil,
'HayVerdura',
TMiEditorDeVerdura );
El problema es que me lo habilita para toda propiedad de tipo Boolean, incluyendo TForm, TLabel y mi abuela también.
(1) Si lo que quieres es que sólo valga para ese componente, sustituye nil por la clase de tu componente.
Por ejemplo TVerdulera. Ya que TButton creo que no tiene la propiedad "HayVerdura", al menos en Delphi 5. Algo así como:
RegisterPropertyEditor( TypeInfo( Boolean ),
TVerdulera,
'HayVerdura',
TMiEditordeVerdura );
(2) Con eso valdrá para TVerdulera y sus descendientes. Si TVerduleraJoven desciende de TVerdulera, como al fin y al cabo es una verdulera, también usará tu editor de verduras para manejar sus existencias.
(3) Si lo que quieres es que además valga para cualquier propiedad llamada "HayVerdura" en cualquier componente, pero no otras booleanas, puedes agarrarte al punto (2) y en vez de nil o TVerdulera, poner TComponent, de esa forma servirá para todos los descendientes de TComponent... o sea para cualquier componente.
Creo la propiedad "HayVerdura". Debería hacer algo así:
RegisterPropertyEditor( TypeInfo( Boolean ),
nil,
'HayVerdura',
TMiEditorDeVerdura );
El problema es que me lo habilita para toda propiedad de tipo Boolean, incluyendo TForm, TLabel y mi abuela también.
(1) Si lo que quieres es que sólo valga para ese componente, sustituye nil por la clase de tu componente.
Por ejemplo TVerdulera. Ya que TButton creo que no tiene la propiedad "HayVerdura", al menos en Delphi 5. Algo así como:
RegisterPropertyEditor( TypeInfo( Boolean ),
TVerdulera,
'HayVerdura',
TMiEditordeVerdura );
(2) Con eso valdrá para TVerdulera y sus descendientes. Si TVerduleraJoven desciende de TVerdulera, como al fin y al cabo es una verdulera, también usará tu editor de verduras para manejar sus existencias.
(3) Si lo que quieres es que además valga para cualquier propiedad llamada "HayVerdura" en cualquier componente, pero no otras booleanas, puedes agarrarte al punto (2) y en vez de nil o TVerdulera, poner TComponent, de esa forma servirá para todos los descendientes de TComponent... o sea para cualquier componente.