T
Jo ist echt besser. Hier der Code für die anderen:
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Dragging = true;
DragX = X;
DragY = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if(Dragging)
{
Image1->Left += X - DragX;
Image1->Top += Y - DragY;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Dragging = false;
}
//---------------------------------------------------------------------------
Vielen dank.