Скроллинг в TScrollBox мышкой - Delphi - Ответ 12439712

  TMainForm = class(TForm)
    ScrollBox1: TScrollBox;
    img1: TImage;
    procedure img1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure img1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure img1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    Dragging:boolean;
    P0:TPoint;
    V0:TPoint;
  end;
 
var
  MainForm: TMainForm;
 
implementation
uses Winapi.Windows;
 
{$R *.dfm}
 
{ TMainForm }
 
 
 
procedure TMainForm.img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Dragging := true;
  P0 := Point(x,y);
  V0 := Point(ScrollBox1.HorzScrollBar.Position,ScrollBox1.VertScrollBar.Position);
end;
 
procedure TMainForm.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  d:TPoint;
  v:TPoint;
begin
  if not Dragging then
    exit;
 
  D := Point(X,Y) - P0;
  V := V0 - D;
  ScrollBox1.HorzScrollBar.Position := v.X;
  ScrollBox1.VertScrollBar.Position := v.Y;
end;
 
procedure TMainForm.img1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Dragging := false;
end;