Dicas - Alterando a cor de fundo do Edit

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, como alterar a cor de fundo do Edit.

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

uploader@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?