drag move in scrollbox

[Bummi]

Ich verwende TMS nicht, aber wenn Du die Scrollbars weglässt, könnte das Bild IMHO auch auf einem Panel o.ä. liegen und der Code reduziert sich auf:

Delphi-Quellcode:

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

procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then
    begin
     Image.Left := Image.Left - FX + X;
     Image.Top  := Image.Top - FY + Y;
    end;
end;