Ver Mensaje Individual
  #6  
Antiguo 03-06-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Se me ocurre otra forma de mover las imágenes dentro del ScrollBox. Pero no utilizando los eventos OnDragOver y OnDragDrop como en el código de tu primer mensaje. Por medio de aquellos, veo difícil solucionar el efecto del ícono de prohibición.

Tal vez esta propuesta se ajuste mas a lo que estas buscando:
Código:
bool Moving;

void __fastcall TForm1::ControlMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  Moving = Shift.Contains(ssCtrl);
}


void __fastcall TForm1::ControlMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  TControl *Ctrl = static_cast<TControl*>(Sender);

  if (Moving) {
    Ctrl->Left = X + Ctrl->Left;
    Ctrl->Top  = Y + Ctrl->Top;
  }
}

void __fastcall TForm1::ControlMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  Moving = false;
}
Asigna los eventos al/los controles que desees mover (Images en tu caso).

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 03-06-2013 a las 05:27:25.
Responder Con Cita