Botão se mecher em delphi

Acará · 19 de agosto de 2002

Tô tentando aprender delphi,,né..

Queria saber como eu faço um botão se mexer em um programinha..

Quero usar o evento OnmouseMove,prá quando passar o mouse se mover,mas como fazer pra se mexer?

Não sei se é simples,mas queria saber,, :Z

20 de agosto de 2002

Bom, na verdade o botao não se move, ele fica oculto e outro aparece quando você poe o mouse em cima dos mesmo...

não sei fazer muito bem mas esse é o mecanismo...

Espero q tenha ajudado

sledgehammer · 20 de agosto de 2002

Pense em duas posições (ai você tem que fazer uma conta pra ficar simétrico).

Ai no evento OnmouseMove você inclui uma condição assim:


   if Button1.Left = 100 then Button1.Left:=550 else Button1.Left:=100;

O 100 e o 550 você tem que determinar.

Ou então você pode fazer ele sortear um número para o Left (entre 0 e (Form1.Clientwidth - Button1.width)) e para o Top (entre 0 e (Form1.Clientheight - Button1.height);

Esse parece ser mais interessante pois irá se mover em todas as direções. Fica assim:


 Button1.Left:=Random(Form1.Clientwidth - Button1.width);
 Button1.Top:=Random(Form1.Clientheight - Button1.height);

Acará · 20 de agosto de 2002

Valeu mesmo pessoal,deu certo,

Mas ficou button1 propriedade Left,recebe Random..,mas o que Random faz?

Só pra interder mais fundo esse codigo!!! :Z

sledgehammer · 20 de agosto de 2002

Postado Originalmente por Acará@20 Aug. 2002,19:58
Valeu mesmo pessoal,deu certo,

Mas ficou button1 propriedade Left,recebe Random..,mas o que Random faz?

Só pra interder mais fundo esse codigo!!! :Z

O Random é para sortear um número randômico.

Lembrei agora que talvez seja interessante você incluir o comando Randomize (só uma linha com Randomize;) quando o programa inicia ou cada vez que o evento OnMouseMove acontecer (no início do código que te passei).

Use esse código e você verá o efeito do Random. Não irá ter sempre o mesmo movimento, será aleatório.