讓Delphi的DBGrid支援滑鼠輪

現在的大多數的滑鼠都有滑鼠輪，比如，當我們瀏覽網頁時，滑鼠輪上下移動，網頁就自動上下滾動。滑鼠輪的確給我們的操作帶來很多方便，但是，在Delphi的大多數控制項中都只支援 MouseDown,MouseUp,MouseMove等事件，而不直接支援MouseWheel事件，我們在協助客戶設計一個查看程式時就碰到這樣的問題。這個查看程式的資料是放在一個DBGrid中的，資料比較多，超出整個螢幕，如果用滑鼠輪上下移動，則DBGrid的游標只在可見範圍內移動，超出螢幕的資料必須用鍵盤或右側的捲軸，給使用者造成極大不方便，客戶強烈要求支援滑鼠輪操作。但是查看DBGrid的事件屬性沒有對滑鼠輪的支援，怎麼辦呢？

我們知道，Windows作業系統是訊息驅動的，因此，如果滑鼠輪上下滾動，必然會有相應的事件發生，經過尋找資料，我們得知當滑鼠輪上下滾動時發生的是WM_MOUSEWHEEL事件，既然這樣，我們如果捕獲這個事件，不就可以處理滑鼠輪事件了嗎？

說幹就幹，那就讓我們來為DBGrid增加一個OnMouseWheel事件，製作一個支援滑鼠輪的新的DBGrid組件。

讓我們建立一個應用，就叫MyDBGrid吧，選擇菜單File-New Application，然後再選擇菜單File-New-Component

因為我們的新組件是從DBGrid繼承的，所以，Ancestor Type選擇 TDBGrid,Class Name就填我們的組件名稱TmyDbGrid,產生的組件放在Samples頁，點擊OK,則組件的架構就產生了。

現在我們開始做最關鍵的部分。當滑鼠輪上下滾動時，發出了WM_MOUSEWHEEL訊息，MOUSEWHEEL訊息有幾個參數，

1.fwKeys= LOWORD(wParam)，表明各種虛擬鍵是否按下，有如下值：

值	說明
MK_CONTROL	按下CTRL鍵
MK_LBUTTON	按下滑鼠左鍵
MK_MBUTTON	按下滑鼠中鍵
MK_RBUTTON	按下滑鼠右鍵
MK_SHIFT	按下Shift鍵

2.zDelta = (short) HIWORD(wParam)

滑鼠輪滾動的距離，如果向前則為正，向後為負。

3. xPos ＝(short) LOWORD(lParam)

yPos＝(short) HIWORD(lParam)

滑鼠的位置。