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

[lbidi]

Gracias bicho x responder. En efecto de esa manera q tu dices, lo hice y quedo barbaro. Ahora ya q estoy , repregunto.
Tengo varios forms, con varios edits en cada uno. Es posible de alguna manera asignar estos eventos en forma globar, sin tener q asignarlos edit x edit??

Gracias nuevamente.
Saludos