type
TDBGrid=class(DBCGrids.TDBGrid)
public
function DoMouseWheel(Shift:TShiftState; WheelDelta:Integer; MousePos:TPoint):Boolean;override;
end;
Type
.....你原来的程序段
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;