Delphi Dbgrid滚轮问题解决

unit  Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
TDBGrid = class (DBGrids.TDBGrid)
public
function  DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;  override ;
end ;

TForm1  =   class (TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
Edit1: TEdit;
private
{  Private declarations  }
public
{  Public declarations  }
end ;

var
Form1: TForm1;

implementation

{ $R *.dfm }
function  TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint): Boolean;
begin
if  WheelDelta  <   0   then
datasource.DataSet.Next;
if  wheelDelta  >   0   then
DataSource.DataSet.Prior;
end ;


end .

本文转自黄聪博客园博客，原文链接：http://www.cnblogs.com/huangcong/archive/2010/08/22/1805718.html，如需转载请自行联系原作者