ayuda con color en controles activos

[Paoti]

Hola!!!

una forma más fácil, es crear tu primer cuadro de texto, con el cambio de colores

Código Delphi [-]
Procedure TForm1.TEDIT1Enter(Sender : TObject);

Begin
  (sender as TControl).Color := clRed;
End;

Procedure TForm1.Edit1Exit(Sender : TObject);

Begin
  (sender as TControl).Color := clWindow;
End;

enseguida, seleccionas el siguiente TEdit, y te vas al inspector de objetos y en la pestaña eventos, te vas al evento OnEnter, y seleccionas de la lista desplegable el procemiento que definiste para tu primer TEdit, y asi con los demas controles, y tendras el mismo comportamiento, solamente habiendo programado una sola vez tu procedimiento.....



Espero te sirva, hasta luego...