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

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s