[Resolvido] SetFocus com Cor

[Popin 0]

Ola... Como faço por exemplo para que quando o cursor for para o campo DBEdit utilizando o SetFocus o campo fique dar cor amarela por exemplo?

[fernando.fxsoft 0]

No evento OnEnter do DBEdit, mude a propriedade Color.

 

procedure TForm2.DBEdit1Enter(Sender: TObject);

begin

DBEdit1.Color := clYellow;

end;

 

 

Um abraço,

[Popin 0]

Muito obrigado, deu certo como eu queria fazer mesmo.