Detectar evento cambio de foco

[roman]

¿No se están complicando mucho?

A quien se quiere cambiar de color es a un TWinControl y la propiedad Color aparece desde TControl. Sólo hay que desprotegerla:

Código Delphi [-]
type THackControl = class(TWinControl);

...

procedure TBRGFocusAdmin.AplicarColor(Color :TColor; Componente: TWinControl);
begin
  THackControl(Componente).Color := Color;
  Componente.Repaint;
end;

// Saludos

[[Crandel]]

Empezado por roman

¿No se están complicando mucho?

A quien se quiere cambiar de color es a un TWinControl y la propiedad Color aparece desde TControl. Sólo hay que desprotegerla:

Código Delphi [-]
type THackControl = class(TWinControl);

Se puede, pero no me parece buena practica hacer publica toda la clase por solo necesitar la propiedad Color. Ahora que conoci los métodos RTTI, prefiero hacerlo asi.

Igualmente sigue el problema del TListBox, que el tonto no se sabe repintar

[roman]

¿Y quién dice que estás haciendo pública toda la clase?

Fuera del código de AplicarColor, nadie podrá acceder a esas propiedades.

// Saludos

[[Crandel]]

Obviamente fuera del componente no, pero dentro si, pero .... que buena idea me dio

Código Delphi [-]
THackControl(Sender).RecreateWnd;

[Hugo]

Al terminar la aplicación me da error "Access Violation, read of address...", me imagino que tendré que destruir algo o intento acceder a algún objeto que ya no existe.

De todas formas, me imagino que habrá algún componente ya existente que haga esto mismo, yo tengo la Jedi VCL pero si lo hay no se localizarlo.

[jafera]

Hola a todos.

Ya se que este hilo es viejo pero es el que creo que va a hacer lo que necesito, cambiar el fondo de los controles a medida que van recibiendo el foco.

He creado la unit y la he puesto en uses del form, pero no se pinta nada.

He usado el código que retocó Crandel.

Tambien probé el tema de las RTTI y funciona bien, cambia de color al recibir foco, pero al salir de un form Child, me deja una sombra negra en el form Padre.

Gracias por adelantado

Josep