Buscar por:

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.