Buscar

Como trocar a cor do componente focado?

Código

{Para mudar a cor do conponente que esta focado, e depois voltar a cor quando não está mais focado.
 No evento OnEnter.
Colocar as seguintes linhas de comando; }

 
procedure TForm1.DBEdit1Enter(Sender: TObject);
begin
// verificar o camponente
 if (Sender is TDBEdit) then
// mudar a cor do componente
 TDBEdit(Sender).Color:=ClBlue;
end;
 
No Evento OnExit:
Colocar as seguintes linhas de comando;
 
procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
// verificar o camponente
 if (Sender is TDBEdit) then
// mudar a cor do componente
 TDBEdit(Sender).Color:=clWindow;
end;
 
//Desta Forma você pode utilizar esta procedure para vários componentes.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 4126 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009