Colores en los tedits

[[Bicho]]

Hola, no necesitas programar el Evento OnEnter y OnExit de cada Edit del form, puedes usar el mismo evento para todos los edits y dentro de cada edit puedes hacer algo así:

Código Delphi [-]
procedure TForm1.edit1Enter(Sender: TObject);
begin
  if (Sender is TEdit) and (TEdit(Sender).Visible) then
    TEdit(Sender).ColorEditbk := clGradientActiveCaption;
end;

procedure TForm1.edit1Exit(Sender: TObject);
begin
  if sender is TEdit then TEdit(Sender).ColorEditbk  := clWindow;
end;

Y todos los edits a los que tengas asignados el mismo OnEnter y OnExit cambiaran de color por separado cada vez que se entre o salga de uno.

Saludos