José Luiz Postado Fevereiro 21, 2008 Denunciar Share Postado Fevereiro 21, 2008 Tenho um objeto Memo, e gostaria que ele mudasse a cor do fundo ao passar o mouse em cima.Para trocar o cursor, utilizo :procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Memo1.Cursor := crHandPoint ;end;Ao fazer o mesmo para a cor, esta muda, porém ao sair do campo Memo, a cor alterada permanece, enquanto que o cursor retorna ao original.Tentei fazer Memo1.Color := clAqua ; Como fazer para que também a cor retorne à original ?Obrigado,José Luiz Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Fevereiro 21, 2008 Denunciar Share Postado Fevereiro 21, 2008 Ao fazer o mesmo para a cor, esta muda, porém ao sair do campo Memo, a cor alterada permanece, enquanto que o cursor retorna ao original.Tentei fazer Memo1.Color := clAqua ; Como fazer para que também a cor retorne à original ?Veja se isso que voce esta querendo.procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Memo1.Cursor := crHandPoint; Memo1.Color := clAqua; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Memo1.Color := clwhite; end;OBS: quando o mouse passa pelo Memo o fundo fica com o fundo azul e quando o mouse sai do memo e entra no form, o memo fica com o fundo brancoabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 José Luiz Postado Fevereiro 21, 2008 Autor Denunciar Share Postado Fevereiro 21, 2008 Obrigado Jhonas, meu problema foi resolvido.Um abraço, José Luiz. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
José Luiz
Tenho um objeto Memo, e gostaria que ele mudasse a cor do fundo ao passar o mouse em cima.
Para trocar o cursor, utilizo :
procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Memo1.Cursor := crHandPoint ;
end;
Ao fazer o mesmo para a cor, esta muda, porém ao sair do campo Memo, a cor alterada permanece, enquanto que o cursor retorna ao original.
Tentei fazer Memo1.Color := clAqua ;
Como fazer para que também a cor retorne à original ?
Obrigado,
José Luiz
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.