De nuevo aqui!
Bueno resolvi esto de la siguiente manera:
Código Delphi
[-]private
ColorOrigen: TColor;
procedure ColorEnter(Sender: TObject);
procedure ColorExit(Sender: TObject);
procedure TfrmClientes.ColorEnter(Sender: TObject);
begin
ColorOrigen := TDBEdit(Sender).Color;
TDBEdit(SEnder).Color := clSkyBlue;
end;
procedure TfrmClientes.ColorExit(Sender: TObject);
begin
TDBEdit(Sender).Color := ColorOrigen;
end;
procedure TfrmClientes.DBEdit1Enter(Sender: TObject);
begin
ColorEnter(Sender);
end;
procedure TfrmClientes.DBEdit1Exit(Sender: TObject);
begin
ColorExit(Sender);
end;
Se aceptan todas las sugerencias