[movnet]

Страдалецъ спасибо. а как теперь прокрутить ScrollBox спомощю мыши?

Пробывал так :

Код:

procedure TForm1.ScrollBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 MoveScroll:=True;
 GetCursorPos(LastPoint);
end;

procedure TForm1.ScrollBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 MoveScroll:=False;
end;

procedure TForm1.ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
 var P : TPoint;
begin
 if not MoveScroll then
 Exit;
 GetCursorPos(P);
 ScrollBox1.HorzScrollBar.Position:=ScrollBox1.HorzScrollBar.Position-(P.X-LastPoint.X);
 ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position-(P.Y-LastPoint.Y);
 GetCursorPos(LastPoint);
end;

нечего не получается...