Buscar

Mover objeto junto com o mouse

Código

1°: //Para mover o objeto junto com o mouse ('como se ele fosse o mouse'):
//Coloque no "OnMouseMove" for Form e de todos os objetos de do form (EXCETO DO QUE IRÁ SE MOVER!) o código:

Objeto1.Top:= y - 3;
Objeto1.Left:= x - 2;
//Se deseja ocultar o mouse do Windows, adicione o código:
showcursor(false);

//Os - 3 e - 2 são para tirar o Objeto um pouco de cima dos objetos do form, para executar o clique.

2°: //Para colocar o objeto  onde está o mouse no momento de um clique:
//Coloque o no evento OnClique em algum objeto do form, o código:

Objeto2.Top:= Mouse.CursorPos.Y;
Objeto2.Left:= Mouse.CursorPos.X;

Pronto!
(Se quiser

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 02/02/11
Por: Mateus Gomes
Visualizada: 9329 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009