Mudar a Cor da Fonte ao Passar o mouse por cima
Pessoal boa noite, tenho um edit e gostaria que quando o usuario passasse o mouse sobre ele a cor da fonte ficasse azul por exemplo e o cursor mudasse para uma Mão e quando tirasse o mouse de cima o conteúdo do Edit voltasse ao normal semelhante ao que acontece com link de email e URL porém não é este o caso.
Ariovaldo
Curtidas 0
Respostas
Rhalves
25/09/2004
És a Solução, Vamos lá!!
1º) Vamos partir do princípio que o edit está em um form. (não dentro de um painel)
2º) Teremos que o utilizar um evento mouse chamado mousemove, tanto para o mouse como para o form.
No evento edit1MouseMove coloque essas 2 linhas
Begin;
Edit1.Font.Color := clBlue;
Edit1.Cursor := crHandPoint;
End;
No evento formmousemove coloque
Begin
Edit1.Font.Color := clBlack;
Edit1.Cursor := crDefault;
End;
1º) Vamos partir do princípio que o edit está em um form. (não dentro de um painel)
2º) Teremos que o utilizar um evento mouse chamado mousemove, tanto para o mouse como para o form.
No evento edit1MouseMove coloque essas 2 linhas
Begin;
Edit1.Font.Color := clBlue;
Edit1.Cursor := crHandPoint;
End;
No evento formmousemove coloque
Begin
Edit1.Font.Color := clBlack;
Edit1.Cursor := crDefault;
End;
GOSTEI 0