很菜的问题：ScrollBox滚轮事件

Question

procedure TMDIChild.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if   WheelDelta   <   0   then
          ScrollBox1.Perform()
          ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0)
      else
          ScrollBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
end;为什么我运行的时候告诉我Undeclared identifier: 'WM_VSCROLL'？
'WM_VSCROLL'还需要定义吗？如果需要怎么定义呢？

Answer 1

在你的单元开始的地方Uses下面添加Messages引用吧
uses
  messages; 

Answer 2

是不是你在uses 中把Messages单元去掉了？

Answer 3

在Uses下面添加Messages之后错误变成这样了：
Not enough actual parameters
这又是什么原因？