Pasar pequeño codigo Delphi a Builder

[ecfisa]

Hola.

Ese código si funciona, te lo aseguro.

El ícono de prohibido lo vas a ver siempre que el cursor del mouse esté sobre la imágen ya que este componente no tiene por qué permitir ningún drop dentro de él. Seguí desplazándote hasta posicionarte en el área del ScrollBox y me contas.

De todos modos, estaba pensando que si tenes mas de una imágen dentro del ScrollBox, seguramente te sea mas útil de este modo:

TPoint PIni;

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 if (Shift.Contains(ssCtrl)) { /* ¿ Tecla Ctrl presionada ? */
    PIni.x = X;
    PIni.y = Y;
    ((TImage*)Sender)->BeginDrag(true);
  }
}


void __fastcall TForm1::ScrollBox1DragOver(TObject *Sender,
      TObject *Source, int X, int Y, TDragState State, bool &Accept)
{
  Accept = Source->ClassNameIs("TImage");
}

void __fastcall TForm1::ScrollBox1DragDrop(TObject *Sender,
      TObject *Source, int X, int Y)
{
  ((TImage*)Source)->Left = X - PIni.x;
  ((TImage*)Source)->Top  = Y - PIni.y;
}

Saludos.