如何让form自动生成的滚动条随着鼠标滑轮的滚动而滚动？

Question

现在我的一个form上面的可视控件比较多，所以，窗体自动生成了滚动条。但是，运行程序的时候，这个滚动条并不随着鼠标滑轮的滚动而上下滚动。
    我如何才能实现form的这个功能哪？
    谢谢了

Answer 1

找到Form的OnMouseWheel事件，双击，添加代码
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  Form1.VertScrollBar.Position:= Form1.VertScrollBar.Position- WheelDelta;
end;

Answer 2

想滚动慢点的话自己调整后面的数据Form1.VertScrollBar.Position := Form1.VertScrollBar.Position - (WheelDelta div 20);