請問如何取消 TComboBox 的滑鼠滾輪的功能
當 TComboBox 有二個以上的選項 ，同時TComboBox 取得焦點時，
使用滑鼠滾輪up(跳至上一個選項)或down(跳至下一個選項)，請問如何讓TComboBox 取消這個功能

------
學藝不精 謝多多指教

在 On_Key_Down 事件下增加以下程式碼
<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (((Key = VK_UP) or (Key = VK_DOWN)) and not(TComboBox(SendeR).DroppedDown)) then Abort; end; </textarea>
缺點是，會連同上下鍵功能一起鎖掉

------
Fishman

編輯記錄

方法二：
拉一個 ApplicationEvents(在 Additional TAB 中)，在其 OnMessage 事件中加入以下程式碼
<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if ((Self.ActiveControl = Combobox2) and (Msg.message = WM_MOUSEWHEEL)) then Handled := True; end; </textarea>

------
Fishman

謝感您 的解答

------
學藝不精 謝多多指教