Mover componentes de acordo com a posi��o do mouse

Question

E a� galera, blz?Estou fazendo um instalador e gostaria de fazer uma coisa um pouco �diferente�... Coloquei alguns bot�es no Form e quatro Shapes. Quero que no bot�o que o mouse posicionar, os Shapes ...

Adriano Santos · Answer

[quote:f97b5d6bdc=�marceloneox�]E a� galera, blz?Estou fazendo um instalador e gostaria de fazer uma coisa um pouco �diferente�... Coloquei alguns bot�es no Form e quatro Shapes. Quero que no bot�o que o mouse posicionar, os Shapes se movam cada um para uma extremidade do bot�o que o mouse est�.Ex.: Se posicionar o mouse no bot�o debaixo, os shapes v�o descendo e cada um fique em uma �ponta� do bot�o. Se for no bot�o de cima, os shapes subam, fazendo o mesmo...Desde j� agrade�o a ajuda.[  ]s[/quote:f97b5d6bdc]Vai precisar fazer mudar o left e o top dos shapes igualando-os a posi��o do mouse, mais ou menos assim:[code:1:f97b5d6bdc]procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin   Shape1.Left := X;   Shape1.Top := Y;end;[/code:1:f97b5d6bdc]Precisa s� fazer as contas corretas para que o shape fique no local que vc deseja....

Massuda · Answer

N�o sei se entendi direito...A princ�pio, (acho que) voc� pode acompanhar o movimento do cursor do mouse sobre o form usando o evento .OnMouseMove do form e para saber se o mouse est� sobre algum controle, use o m�todo .ControlAtPos do form; talvez tenha que converter as coordenadas do mouse para o sistema de coordenadas local, ou seja, relativo ao form, usando o m�todo .ScreenToClient do form.Para mover os shapes, basta alterar as propriedades .Top e .Left do shape....

Marceloneox · Answer

[code:1:3ce2dcf5dc]procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin   Shape1.Left := X;   Shape1.Top := Y;end;[/code:1:3ce2dcf5dc]Com esse c�digo moverei os Shapes no Form de uma forma geral, e n�o � muito bem isso o que eu quero. Quero que eles se movam s� quando entram em um componente, um bot�o por exemplo. Se o mouse entrar na regi�o do bot�o, os Shapes se movem e se ajustam nas extremidades deste bot�o, entendeu?...

Marceloneox · Answer

Consegui criar um m�todo pra mover os Shapes, mas n�o consegui fazer eles deslizarem at� o controle que o mouse est� posicionado. Os Shapes tem que deslizar pelo Form at� se posicionarem nas extremidades do componente onde o mouse est�. Se algu�m puder me ajudar...

[ ] s

Dpinho · Answer

Fiz isto utilizando o OnMouse do Buttonprocedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin   Shape1.Left := Button1.Left - 80;   Shape1.Top := Button1.Top;end;procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin   Shape1.Left := Button2.Left - 80;   Shape1.Top := Button2.Top;end;...

Marceloneox · Answer

A quest�o de posicionar os Shapes eu consegui resolver, criei um m�todo s� pra todos os bot�es que os Shapes se ajustar�o, mas n�o consigo fazer os Shapes deslizarem at� o bot�o que o cursor do mouse est� posicionado. Quando o mouse entra em outro bot�o, simplesmente os Shapes aparecem no novo controle que o mouse est� posicionado. Eu quero que eles v�o deslizando pelo Form da posi��o antiga at� o nova posi��o.

Vlw.

Michael · Answer

Para produzir esta anima��o vc vai ter que colocar o c�digo que movimenta os shapes dentro de um timer, e ir ajustando seus Left�s e Top�s a cada itera��o.

Vc vai ter tbm que pensar em um algoritmo para calcular a trajet�ria dos componentes at� a nova posi��o, tra�ando corretamente o caminho a ser percorrido pelos shapes. Simples, mas n�o trivial.

[]�s