Acceder a una sub-propiedad mediante RTTI

[Casimiro Noteví]

Si al menos dijeras qué componente es.

[elrayo76]

Buenas,


Son varios los componentes y son de las DevExpress (TcxCheckBox y TcxTextEdit).


Lo que hago es recorrer todos los componentes del formulario y mediante RTTI buscar la propiedad, si la tiene se la seteo. El tema es que si la propiedad está dentro de una que se despliega con el signo más y estás son las que no devuelve nada, las que están mas afuera como "Transparent" (TcxCheckBox) si funciona.



Saludos,
El Rayo

[manelb]

Buenos días a todos....

Pues podrías probar con algo como esto

Código Delphi [-]
var
  c: Tcomponent;
begin
  c:= Button1;

  SetPropValue(c, 'Caption', 'Functiona');
  SetPropValue(c, 'Tag', 25);
  SetPropValue(c, 'Anchors', 'akBottom,akRight');


  SetPropValue( GetObjectProp(c,  'Margins'), 'Bottom', 50);
  SetPropValue( GetObjectProp(c,  'Font'), 'Size', 20);

end;

Debes tener en el uses System.TypInfo

Saludos.

[Neftali [Germán.Estévez]]

Creo que primero debes acceder a la propiedad Properties como si fuera un Objeto/Clase.
Fíjate que el tipo:

Código Delphi [-]
  TTypeKind = System.TTypeKind;

Posee un valor:

Código Delphi [-]
  tkClass       = System.TTypeKind.tkClass;

En este caso properties de las DevExpress (por ejemplo para un TcxTextedit) es de tipo TcxTextEditProperties. Una vez accedeas como clase, vuelves a acceder a las propiedades de esa clase como lo haces normalmente.

NOTA: Creo que es similar a lo que ha comentado manel.

[elrayo76]

Gracias a los dos por responder.



Veré los dos casos a ver con cual me quedo que me sirva mejor y luego les contaré como me fue.


Saludos
El Rayo