SoloCodigo

Programación General => C/C++ => C++ Builder => Mensaje iniciado por: BLADDE en Viernes 18 de Enero de 2008, 04:22

Título: Mover Un Componente
Publicado por: BLADDE en Viernes 18 de Enero de 2008, 04:22

que tal amigos se me ha presentado la siguiente situacion necesito mover un Timage quue contiene la representacion de una ficha imaginen un tablero y necesito ubicar una ficha sobre el. como se podria hacer??? fijense pense en esto si en el evento mouseUp del Timage leyera la posicion del apuntador del mouse (x,y) y esos valores se los pasara a el top y left del Timage podria hacer que se moviera lo intente pero creo que estoy leyendo mal los valores del apuntador del raton por q se mueve para otro lado espero haberme explicado si hay alguen que aaya hecho algo parecido o conoesca de un componente que se pueda usar se lo sabria agradecer
cualquier inf es biembenida

Título: Re: Mover Un Componente
Publicado por: giropau en Domingo 27 de Enero de 2008, 21:14

Yo he hecho algo parecido, al diferencia es que yo movía el form entero. He usado los eventos de mouseDown,MoveMove y mouseUp. Aqui te dejo mi codigo por si te sirve de ayuda.

Código: Text

1.  
2. void __fastcall TconfCamFrm::Image1MouseDown(TObject *Sender,
3.       TMouseButton Button, TShiftState Shift, int X, int Y)
4. {
5.         activarMoviment = true;
6.         xClick = X;
7.         yClick = Y;        
8. }
9. //---------------------------------------------------------------------------
10.  
11. void __fastcall TconfCamFrm::Image1MouseMove(TObject *Sender,
12.       TShiftState Shift, int X, int Y)
13. {
14.         if(activarMoviment)
15.         {
16.                 TPoint *tp;
17.                 GetCursorPos(tp);
18.                 xx = tp->x;
19.                 yy = tp->y;
20.                 confCamFrm->Left = xx-xClick;
21.                 confCamFrm->Top = yy-yClick;
22.         }        
23. }
24. //---------------------------------------------------------------------------
25.  
26. void __fastcall TconfCamFrm::Image1MouseUp(TObject *Sender,
27.       TMouseButton Button, TShiftState Shift, int X, int Y)
28. {
29.         activarMoviment = false;
30. }
31.