pintar los edits de un form

[ecfisa]

Hola kapcomx.

Probá de este modo:

Código Delphi [-]
type
  TForm1 = class(TForm)
  ...
  private
     FPrevCtrlFocused: TWinControl;
     procedure ActiveCtrlChange(Sender: TObject) ;
  public
  end;

...

implementation

procedure TForm1.ActiveCtrlChange(Sender: TObject);
begin
  if FPrevCtrlFocused is TEdit then
    TEdit(FPrevCtrlFocused).Color:= clWindow;
  if Screen.ActiveControl is TEdit then
  begin
    TEdit(Screen.ActiveControl).Color:= clMoneyGreen; 
    FPrevCtrlFocused:= ActiveControl;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := ActiveCtrlChange;
  FPrevCtrlFocused:= Screen.ActiveControl;
end;
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Screen.OnActiveControlChange:= nil;
end;

Saludos.