給DBGrid添加鼠標滾動事件

unit Unit1;
　　
　　interface
　　
　　uses
　　  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids;
　　
　　type
　　   TForm1 = class(TForm)
　　    DBGrid1: TDBGrid;
　　    ADOTable1: TADOTable;
　　    DataSource1: TDataSource;
　　    procedure FormCreate(Sender: TObject);
　　  private
　　   Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
　　    { Private declarations }
　　  public
　　    { Public declarations }
　　  end;
　　
　　var
　　  Form1: TForm1;
　　
　　implementation
　　
　　{$R *.dfm}
　　//------------------------------------------------------------------------------
　　Procedure TForm1.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
　　begin
　　  if Msg.message = WM_MouseWheel then
　　  begin
　　    if Msg.wParam > 0 then
　　     begin
　　       if DBGrid1.Focused then
　　         SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEUP,0);
　　     end
　　    else
　　     begin
　　       if DBGrid1.Focused then
　　         SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);
　　     end;
　　    Handled:= True;
　　  end;
　　end;
　　
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　 Application.OnMessage:=OnMouseWheel; // 截獲鼠標滾動事件
　　end;