TImage in Runtime mit Maus verschieben

[Bummi]

eine Möglichkeit wäre

Delphi-Quellcode:

var
DownPoint:TPoint;

procedure TForm5.ImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   DownPoint.X := X;
   DownPoint.Y := Y;
end;

procedure TForm5.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then
     begin
       TControl(Sender).Left := TControl(Sender).Left - (DownPoint.X - X);
       TControl(Sender).Top  := TControl(Sender).Top  - (DownPoint.Y - Y);
     end;
end;