Utilizando o evento (OnMouseMove do Delphi7)
1 - Vamos adicionar um (panel);
2 - Na "Object Inspector" com o panel selecionado :
2.1 - Color = "vermelho";
2.2 - Organize assim:
3 - Vá em eventos da "Object Inspector" ;
3.1 - Selecione o evento "OnMouseMove" dando um clique duplo;
3.2 - Entre o begin e o end coloque isso:
Tecle (F12) para voltar a parte da interface e depois slecione o (Form)...
Com o (form) selecionado Va em "OnMouseMove" e coloque isso entre o begin e o end:
Agora é só dá (F9) e ver o resultado de nossa aplicação...
------------------------------------------------------------------------
COMPLEMENTO:
Mudando a forma do mouse...
Para mudar a forma do mouse é só ir no "Object Inspector" com o panel selecionado e mudar o cursor:
Mas vamos deixar mais divertido e vamos passar isso para a programação:
selecione o (panel) depois vá no evento OnMouseMove e na parte da programação você complementa com isso:
Depois de ter programado isso ai vamos selecionar o (form) e no evento OnMouseMove complemente com isso:
Agora tecle (F9) e veja o OnMouseMove fazer efeito...
2 - Na "Object Inspector" com o panel selecionado :
2.1 - Color = "vermelho";
2.2 - Organize assim:
3 - Vá em eventos da "Object Inspector" ;
3.1 - Selecione o evento "OnMouseMove" dando um clique duplo;
3.2 - Entre o begin e o end coloque isso:
Tecle (F12) para voltar a parte da interface e depois slecione o (Form)...
Com o (form) selecionado Va em "OnMouseMove" e coloque isso entre o begin e o end:
Agora é só dá (F9) e ver o resultado de nossa aplicação...
------------------------------------------------------------------------
COMPLEMENTO:
Mudando a forma do mouse...
Para mudar a forma do mouse é só ir no "Object Inspector" com o panel selecionado e mudar o cursor:
Mas vamos deixar mais divertido e vamos passar isso para a programação:
selecione o (panel) depois vá no evento OnMouseMove e na parte da programação você complementa com isso:
Depois de ter programado isso ai vamos selecionar o (form) e no evento OnMouseMove complemente com isso:
Agora tecle (F9) e veja o OnMouseMove fazer efeito...
Utilizando o evento (OnMouseMove do Delphi7)
Reviewed by Dayvid
on
21:10
Rating:
Nenhum comentário