如何禁用 FMX ComboBox 鼠标滚轮滚动

Question

如何在 FMX TComboBox 上悬停时禁用鼠标滚轮滚动？ 我试过重写 MouseWheel 方法，但没有任何运气。我很可能做错了，因为我没有覆盖的经验。参考：MouseWheel

我已经删除了Inherited：

type
  TComboBoxOverride = class(TComboBox)
    procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean); override;
  end;

// I've tried changing the control on the class overriding the method. No luck
cbbServerMap: TComboBoxOverride;

{ TComboBoxOverride }

procedure TComboBoxOverride.MouseWheel(Shift: TShiftState; WheelDelta: Integer;
  var Handled: Boolean);
begin
  Handled := True;
end;

我为 VCL 和 DevEx 找到了以下 SO 帖子，但我正在努力将其转换为 FMX，参考：How to suppress mouse wheel in TcxComboBox

在TCustomComboBox.MouseWheel 方法上设置断点时，我可以看到它忽略了我的覆盖。

Answer 1

我解决了相同的任务，但滚动框中的备忘录。
我的解决方案是

1. 在滚动框中处理鼠标滚轮。OnMouseWheel。在那里设置 Handle := true。
2. 在备忘录的OnMouseWheel中直接调用scrollbox.OnMouseWheel