Cambiar color de los DBEdit al entrar en ellos

[ecfisa]

Hola Delphitest.

Otra opción para detectar el cambio de foco, es usar el evento OnActiveControlChange :

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

...
implementation

uses TypInfo;

const
  FOCUSEDCOLOR   = clMoneyGreen;
  UNFOCUSEDCOLOR = clWindow;

var
  PrevFocusedCtrl: TWinControl = nil;

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

procedure TForm1.ActiveCtrlChange(Sender: TObject);
begin
  if not Assigned(PrevFocusedCtrl) then
    PrevFocusedCtrl:= ActiveControl;

  if Assigned(GetPropInfo(PrevFocusedCtrl.ClassInfo, 'Color')) then
    SetOrdProp(PrevFocusedCtrl, 'Color', UNFOCUSEDCOLOR);

  if Assigned(GetPropInfo(ActiveControl.ClassInfo, 'Color')) then
  begin
    SetOrdProp(ActiveControl,'Color', FOCUSEDCOLOR);
    PrevFocusedCtrl:= ActiveControl;
  end;
end;

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

De este modo cambiará el color del control focalizado (siempre que poseea la propiedad Color)

Saludos

[Delphitest]

Disculparme por no haber vuelto a decir nada de este tema pero estoy probando con el código que proporciona ecfisa y no salgo de ahí, me da un error de "Access Violation..." y por muchas vueltas que le estoy dando no hay manera...

Lo que me preocupa es que ni siquiera soy capaz de cambiar el color en un DBEdit, no hace caso ni al cambio de propiedad directamente desde el objeto ni si lo meto en el código en el evento OnEnter, algo debo estar pasando por alto

[ecfisa]

Hola Delphitest.

Lamento la demora en la respuesta, pero he estado afuera unos días.

No sé que pueda estar sucediendo ya que no puedo ver tu código, pero te adjunto los fuentes de uno funcional para que lo revises con tranquilidad.

Realizado en Delphi 7, S.O. Windows 7 (32bit)

Saludos

[Delphitest]

Muchas gracias ecfisa,

con tu ejemplo he conseguido adaptarlo a mi código y funciona como quería

Buen fin de semana y gracias de nuevo