Cita:
Empezado por pborges36
el procedimiento AplicarColor lo tengo implementeado de la siguiente manera
|
Si quieres simplificar este procedimiento y además evitar que falle para tipos que no tengas añadidos en el IF (es decir, que funcione para todos) puedes utilizar
RTTI. Revisa
este truquillo, ahí se explica cómo hacerlo.
De esta foprma con algo así te vadría para cuelquier control que derive de
TComponent:
Código Delphi
[-]
SetPropAsString(Componente, 'Color', 'colorf');