Cambiar el color de fondo de un Edit o DBEdit

[[FGarcia]]

De nuevo aqui!
Bueno resolvi esto de la siguiente manera:

Código Delphi [-]
private
    { Private declarations }
    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

[ContraVeneno]

Como ya descubriste las bondades del objeto Sender, el mismo evento OnEnter y OnExit manejan este objeto, por lo que no sería necesario crear las funciones ColorEnter y/o ColorExit.

Puedes usar el mismo código en el propio evento de tu primer control y asignarle ese mismo evento a todos los demás.

[pborges36]

Hola. Tambien podrias usar este componente que pude realizar gracias a la ayuda de algunos integrantes del foro. Espero te sirva. Saludos.

[[FGarcia]]

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 [-]
//Asignamos color al dbedit
procedure TfrmClientes.DBEdit1Enter(Sender: TObject);
begin
  ColorOrigen := TDBEdit(Sender).Color;
  TDBEdit(SEnder).Color := clSkyBlue;
end;
 
//Restauramos color al dbedit
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?

[pborges36]

Es verdad que hubo varias opiniones, personalmente me quede con las modificaciones que hizo Crandel, la primera. Funciona de 10. Saludos.

[patoaballay]

como se puede cambiar el color de fondo de una fila seleccionda en una grilla de datos?? puedo cambiar el color del texto de la fila seleccionada, pero quisiera cambiar tambien el color de fondo de la misma fila.

[ContraVeneno]

http://www.clubdelphi.com/foros/show...r+color+grilla