让DBGRID支持鼠标滚轮

先在窗全上添加ApplictionEvents控件，在ADDITIONAL页中。

然后在ADDITIONAL的onmessage事件中添加如下代码：

if (Carrier_db.Focused) And (Msg.message = WM_MOUSEWHEEL) then
    begin
      if Msg.wParam > 0 then
        SendMessage(Carrier_db.Handle, WM_KEYDOWN, VK_UP, 0)
      else
        SendMessage(Carrier_db.Handle, WM_KEYDOWN, VK_DOWN, 0);
      Handled := True;
    end;

//Carrier_db是DBGRID的名字。