Mudar a Cor da Fonte ao Passar o mouse por cima

25/09/2004

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

Respostas

25/09/2004

Rhalves

É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;


Responder Citar