Contraveneno: creo que ya estaba harto cuando puse el codigo final, asi que hace un rato que volvi al computador vi tu mensaje y quedo esto:
Código Delphi
[-]
procedure TfrmClientes.DBEdit1Enter(Sender: TObject);
begin
ColorOrigen := TDBEdit(Sender).Color;
TDBEdit(SEnder).Color := clSkyBlue;
end;
procedure TfrmClientes.DBEdit1Exit(Sender: TObject);
begin
TDBEdit(Sender).Color := ColorOrigen;
end;
Espero haber entendido tu mensaje, si no me lo haces saber. Gracias!
pborges36 Gracias por el componente, la pregunta al final el codigo que pusiste ¿es el final..final o despues de tantas opiniones hubo otro cambio?