Delphi FireMonkeyでマウスホイールのボタンが上下しているかどうかを検出する方法は？

Question

VCLでは、マウスホイールボタンが上下に動いたときに検出するイベントがあります。 FireMonkey（Windows & 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にはまったく当てはまりますか？