Foros Club Delphi - Cambio de color a un componente

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Cambio de color a un componente (https://www.clubdelphi.com/foros/showthread.php?t=19074)

Cambio de color a un componente

Hola, tengo una pequeña duda haber si me ayudan a resolverlo.

Tengo varios edit's, combobox en un formulario todos tienen el misco color
pero cuando el usuario selecciona uno de ellos u obtiene el foco para escribir o entrar datos, cambio el color solo del componente seleccionado y el anterior lo regreso al color normal lo hago llamando a una funcion y paso la varialbe sender pero no me funciona solo me cambia de color el panel que contiene todos los componentes ojala puedan ayudarme a resolver

Código:

 

procedure Form1.Color(sender:Tobject);

begin

edit1.color := ClSilver;

edit2.color := ClSilver;

edit3.color := ClSilver;

edit4.color := ClSilver;

edit5.color := ClSilver;

edit6.color := ClSilver;

cb1.color := ClSilver;

cb2.color := ClSilver;

dt1.color := ClSilver;

self.color := ClWhite;

Label1.caption := Self.Hint;

end;

 

procedure TForm1.Edit1Click(Sender: TObject);

begin

Color(Sender);

end;

ojala puedan darme alguna respuesta, porque estoy buscando en el foro y no encuentro el como poder hacerlo

Código Delphi [-] 
procedure Form1.Color(sender:Tobject);
begin
  edit1.color := ClSilver;
  edit2.color := ClSilver;
  edit3.color := ClSilver;
  edit4.color := ClSilver;
  edit5.color := ClSilver;
  edit6.color := ClSilver;
  cb1.color := ClSilver;
  cb2.color := ClSilver;
  dt1.color := ClSilver;
  TEdit(Sender).color := ClWhite;
  Label1.caption := TEdit(Sender).Hint;
end;
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
  Color(Sender);
end;

¿Qué te parece así?

Gracias Marto por tu respueta tan rapido, la verdad que me ayudo muchisimo, supongo que tengo que validar cuando sean otros componentes como combobox, o datetimepicker. de todos maneras tu ayuda me sirvio muchisimo.

Gracias