unit DBGrid1;

interface

uses
SysUtils, Classes, Controls, Grids, DBGrids;

type
TDBGrid1 = class(TDBGrid)
private
FOnMouseWheelDown : TMouseWheelUpDownEvent;
FOnMouseWheelUp : TMouseWheelUpDownEvent;
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
property OnMouseWheelDown: TMouseWheelUpDownEvent read FOnMouseWheelDown
write FOnMouseWheelDown;
property OnMouseWheelUp: TMouseWheelUpDownEvent read FOnMouseWheelUp write
FOnMouseWheelUp;
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TDBGrid1]);
end;

end.


-------------------------------------------------------------------------------------------------------------

然後我用此component 在其 Event OnMouseWheelDown 加入 datasource.dataset.next;
OnMouseWheelUp 加入 datasource.dataset.prior;
-------------------------------------------------------------------------------------------------------------
然後為什麼達不到我要的效果...
我轉動滾輪 沒有動作...
我哪裡錯了 謝謝!!

試看這樣行不行(不須再於各程式中寫事件處理):
public
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
function TYourDBGrid.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;
// DoMouseWheel() 是 TWinControl 之基本事件, 不知為何 Boland 未直接寫入 TDBGrid 中.

謝謝 herbert2 這方法我之前找資料有看過
不過 我想了解 為什麼這樣寫不行
我在TControl裡有這樣的寫法
謝謝

原本 TWinControl 是靠處理 CM_MOUSEWHEEL 這個 message 來處理 MouseWheel Event
不是靠繼承而想自行處理, 那得自己處理 CM_MOUSEWHEEL 這個 message

===================引 用 文 章===================
謝謝 herbert2? 這方法我之前找資料有看過
不過? 我想了解? 為什麼這樣寫不行
我在TControl裡有這樣的寫法
謝謝

如果你只是要知道 dbgrid 滾輪的寫法, 看看這個
http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=84434