软体：Delphi 7 资料库：Oracle 8i 问题： 程序运行后，若数据行数太多，无法在一屏内显示，用鼠标拉动DBGrid的滚动条使其翻页，但指针会被定位在新一屏的第一行，能否让其仍然锁定在翻页前的位置不变？ 我曾试图使用DBGrid的OnMouseUp和OnMouseDown，但发现点击滚动条并不能促发这两个事件？

在宣告form之前宣告一個function type TDBGrid = class(DBGrids.TDBGrid) public function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; end; TSM104 = class(TForm) function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; begin if WheelDelta > 0 then datasource.DataSet.Prior; if wheelDelta < 0 then DataSource.DataSet.Next; Result := True; end; Pillar Wang

------
Pillar Wang

老大！您的语句是实现鼠标滚轮功能的？我是想对DBGrid的“滚动条”作一些修改：P