combobox变化的问题

Question

当combobox获得焦点后，滚动鼠标滚轮时，里面的值会发生变化。
有什么办法让它不变化呀？

Answer 1

在窗体的onMouseWheel事件中写入:procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 if   Self.ActiveControl   is   TCombobox   then
        Handled   :=   Trueend;

Answer 2

如果单独处理一个Combobox(例如Combobox1),就这样写:procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin if ActiveControl =Combobox1 then
        Handled   :=   Trueend;