如何用鼠标 滚轮控制form窗口的滚动?

Question

如何用鼠标 滚轮控制form窗口的滚动?
一个上下很长的窗口，想用鼠标滚轮控制窗口内容的上下滚动，如何控制？
不是用鼠标拖窗口滚动条。

Answer 1

处理WM_MOUSEWHEEL即可，    procedure WMMOUSEWHEEL(var message:TMessage);message WM_MOUSEWHEEL;
在这个方法里控制滚动条

Answer 2

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
    Perform(WM_VSCROLL, SB_LINEDOWN, 0);
end;procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
   Perform(WM_VSCROLL, SB_LINEUP, 0);
end;