• Sábado 14 de Diciembre de 2024, 17:48

Autor Tema:  Mover Un Componente  (Leído 1299 veces)

BLADDE

  • Miembro activo
  • **
  • Mensajes: 63
    • Ver Perfil
Mover Un Componente
« en: Viernes 18 de Enero de 2008, 04:22 »
0
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

giropau

  • Nuevo Miembro
  • *
  • Mensajes: 23
    • Ver Perfil
Re: Mover Un Componente
« Respuesta #1 en: Domingo 27 de Enero de 2008, 21:14 »
0
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.