請教各位大大:     於 Win2000 + D5 設計資料庫應用程式時發現一個問題,就是在 DBGrid 新增時若用滑鼠中間滾輪轉動,其指標也會跟著上下轉動,是否有甚麼方式能抑制滑鼠上下轉動

在form上面宣告 type TDBGrid=class(DBGrids.TDBGrid) public function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; end; 然後在 function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; begin // 不做處理 end; 其他請參考 http://delphi.ktop.com.tw/topic.php?topic_Id=18658 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29511

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

感謝 shinjie 對問題的回應,只是以上的方式我都嚐試了,但好像沒完全解決 !? 其原因不知是否我是使用 Win2000 的關係,當我的 form 上放上 WDBGrid 元件,但只充滿於下半部份的 Form ,若游標沒停在 WDBGrid 上用滑鼠滾輪轉動,其資料並不會跟著轉動. 一但游標停在 WDBGrid 上,若轉動滑鼠滾輪,則資料就會跟著移動,不知是否能有另一方式可處理此一問題........無限感激!!

引言: 感謝 shinjie 對問題的回應,只是以上的方式我都嚐試了,但好像沒完全解決 !? 其原因不知是否我是使用 Win2000 的關係,當我的 form 上放上 WDBGrid 元件,但只充滿於下半部份的 Form ,若游標沒停在 WDBGrid 上用滑鼠滾輪轉動,其資料並不會跟著轉動. 一但游標停在 WDBGrid 上,若轉動滑鼠滾輪,則資料就會跟著移動,不知是否能有另一方式可處理此一問題........無限感激!!

以上的問題已解決,其問題是在於我是使用了無線滑鼠的附屬應用程式所造成, 只要把無線滑鼠的附屬應用程式拿掉就可以了...... 另外再請教一問題,當我應用第一種方式時,執行程式後發生 [Warning] Return value of function 'TDBGrid.DoMouseWheel' might be undefined 這又是甚麼問題造成的ㄋ........感激不盡,敬請伺教,謝謝!!

你回傳值沒有定義...

引言: 你回傳值沒有定義...

type TDBGrid=class(DBGrids.TDBGrid) public function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; end; 然後在 function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; begin // 不做處理 end; 回傳值要定義在那裡.........請多伺教,感激不盡!!

回傳值其實沒什麼用，如果你一定要回的話 在 function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; begin // 不做處理 result:=True; //加入這行 end; 因為這是一個function，如果沒有回傳值，delphi會給一個warning

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

Hi liou2456,    1.拉一個 ApplicationEvents(在 Additional TAB 中)    2.在其 OnMessage 事件上加入以下程式碼

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_MOUSEWHEEL then
    begin
      if Self.DBGrid1.Focused then
        Handled := True;
    end;
end;

不知這樣是否可以達到你的需要？ 測試環境：D7 & Windows 2000 Proferssional ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: 回傳值其實沒什麼用，如果你一定要回的話 在 function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; begin // 不做處理 result:=True; //加入這行 end; 因為這是一個function，如果沒有回傳值，delphi會給一個warning

感謝 Shinjie 及個位高手的不吝賜教,以上的問題已解決......感激不盡,謝謝.