Detectar evento cambio de foco

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

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');