Delphi如何在FireMonkey中检测鼠标滚轮按钮是上升还是下降？

Question

在VCL中，有些事件会检测鼠标滚轮按钮何时启动或关闭。有没有办法在FireMonkey（针对Windows＆amp; IOS个应用）中检测到这些事件？我无法在Delphi's Help找到任何帮助，也无法在网上搜索。我在stackoverflow进行了搜索，但我没有找到任何关于此主题的参考。感谢。

Answer 1

现代鼠标上的滚轮取代了中间按钮。在这方面，FireMonkey事件与VCL事件完全相同。只测试涉及的中间按钮。例如：

procedure TMyForm.FormMouseDown(Sender: TObject; 
                                Button: TMouseButton; 
                                Shift: TShiftState; 
                                X, Y: Single);
begin
  if Button = TMouseButton.mbMiddle then
  begin
    // The middle button (scroll wheel) was pressed down
  end;
end;

上面的代码假定您使用枚举类型名称前缀进行编码。如果没有，那么显然你不需要获得mbMiddle的资格。

这适用于Windows和OS X / mac OS应用程序。如何或是否适用于iOS（你提到的）或Android我不能说但是我怀疑它。