其實我發覺有個問題

使用dbgrid時, 例如一頁有十五條record, 但我用mouse中間鍵時, 當滾動到第十五條, 照道理應該滾到第十六條(下一頁), 又或者直接轉到下一頁,
但往往到第十五條時就不動, 要去第十六條, 就要按右邊的bar才到下一頁的第十六條

請問如何達成這個條件呢, 謝謝

原始的dbgrid 並沒有開放 wheel (瀼輪)的介面), 你必須自己對 DBgrid .pas 修改加入以下的功能

在 public 中加一組定義
public
{ Public declarations }
....
// 加入滾輪功能
function DoMouseWheel(Shift: TShiftState; WheelDelta:
Integer; MousePos:TPoint): Boolean; override;

在 {DBGrid } 下任一位置加上

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;

重新編譯即可
要不, 改用這組TWDBGrid 取代 DBGrid, 已內鍵滾輪功能
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=91205


另外, 你這篇應該發在 vcl討論區比較恰當, 並非 dbgrid 就是有關資料庫討論, 我幫你移過去

編輯記錄

謝謝 p.d 大大

不好意思放錯區

我想問, 這樣不用加一個 event嗎 ?

只加一個function就可以 知道是在用wheel?
還是本身dbgrid就有但沒有開放 ?

謝謝

===================引 用 P.D. 文 章===================
原始的dbgrid 並沒有開放 wheel (瀼輪)的介面), 你必須自己對 DBgrid .pas 修改加入以下的功能

在 public 中加一組定義
public
{ Public declarations }
....
// 加入滾輪功能
function DoMouseWheel(Shift: TShiftState; WheelDelta:
Integer; MousePos:TPoint): Boolean; override;

在 {DBGrid } 下任一位置加上

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;

重新編譯即可
要不, 改用這組TWDBGrid 取代 DBGrid, 已內鍵滾輪功能
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=91205


另外, 你這篇應該發在 vcl討論區比較恰當, 並非 dbgrid 就是有關資料庫討論, 我幫你移過去

用繼承也很方便。
不過如你所願，需自訂函數。

procedure TGridViewForm.FormCreate(Sender: TObject);
begin
inherited;
TStringGrid(DBGrid1).onMouseWheelDown := DoMouseWheelDown;
TStringGrid(DBGrid1).onMouseWheelUp := DoMouseWheelUp;
end;

procedure TGridViewForm.DoMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
DBGrid1.DataSource.DataSet.Next;
end;

procedure TGridViewForm.DoMouseWheelUp(Sender: TObject;Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
DBGrid1.DataSource.DataSet.Prior;
end;

您好
在網站中已經有很多相關主題喔！請參考！

http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=62090

------
Pillar Wang