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 declarations }
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.
<a></a>
本文转自黄聪博客园博客,原文链接:http://www.cnblogs.com/huangcong/archive/2010/08/22/1805718.html,如需转载请自行联系原作者