請問各位先進: 是否可以控制滑鼠的滾軸不要影響DBdrid, 因為我發現使用滑鼠的滾軸會捲動DBdrid 畫面上的位置,實際上資料庫的記錄位置卻 沒有變動.DBdrid好像怪怪的,,在下是用Delphi 7.

這要自己承繼元件啊... 你可下載本站網友的自制元件來稍作修改，會容易一點 :    1. 先到 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29502 下載 wdbgrid 2. 安裝好後修改 wdbgrid.pas :    改法一 :

在 private 加入 :
procedure WMMOUSEWHEEL(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
 
implementation :
 
procedure TWDBGrid.WMMOUSEWHEEL(var Message: TWMMouseWheel);
begin
// 留空即可
end;

這樣 mouse wheel 便不會影響你的 DBGrid 了。 改法二 :

在 protect 加入
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
 
implementation :
 
function TWDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  DataSource.dataset.next;
  inherited DoMouseWheelDown(Shift, MousePos);
  refresh;
end;
 
function TWDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  DataSource.dataset.Prior;
  inherited DoMouseWheelUp(Shift,MousePos);
  refresh;
end;

這樣 記錄位置跟選取位置便會一起捲動了。

感謝Justmade大大熱心指導, 因為在下對如何繼承修改元件不了解,  但是照著大大的方式修改就可正常使用了 第二個方式中

應沒有問題的