Dicas Delphi - Alterando a cor de fundo do Edit

Crie uma aplicação, depois adicione ao Form dois Edits e um Button. Apague o nome do Edit em sua propriedade Text. Crie a procedure MudancaDeFoco na área de implementação e declare a mesma na área privada do Form.


Procedure TForm1.MudancaDeFoco(Sender: TObject);
var
I: integer;
Ed: TEdit;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
begin
Ed := Components[I] as TEdit;
if Ed.Focused then
Ed.Color := clYellow
else
Ed.Color := clOlive;
end;
end;

Agora faça a chamada à procedure no evento OnEnter e OnExit de cada Edit, como mostrado abaixo.

procedure TForm1.Edit1Enter(Sender: TObject);
begin
MudancaDeFoco (Sender);
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
MudancaDeFoco (Sender);
end;


Take care