type TDBGrid3D = class(TDBGrid) private { Private declarations } protected { Protected declarations } public { Public declarations } published function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; { Published declarations } end;
procedure Register;
implementation
function TDBGrid3D.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; begin if WheelDelta < 0 then Datasource.DataSet.Next; if wheelDelta > 0 then DataSource.DataSet.Prior; end;
procedure Register; begin RegisterComponents('Samples', [TDBGrid3D]); end;
盒子资源分类大树
