delphi 中得DBGRID实现鼠标滚动。

最近又开始写DELPHI程序了。。

偶尔找到一个 delphi 中得DBGRID实现鼠标滚动的一个例子感觉很不错。保存一下吧。呵呵

从Additional面板选择ApplicationEvents1控件   
  在onMessage事件里  

procedure TFRedunDance.ApplicationEvents2Message(var Msg: tagMSG;
  var Handled: Boolean);

   begin
      if   (DBGrid.Focused)   And   (Msg.message   =   WM_MOUSEWHEEL)   then//确定当前活动得DBGrid。      begin
      if   Msg.wParam   >   0   then
          SendMessage(DBGrid.Handle,   WM_KEYDOWN,   VK_UP,   0)
      else
          SendMessage(DBGrid.Handle,   WM_KEYDOWN,   VK_DOWN,   0);
      Handled   :=   True;
      end;
  end;