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 (ver código abaixo).
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;
Execute a aplicação e veja o funcionamento.
por Erick Rhamnusia
