delphi - WM_MENURBUTTONUP で TMenuItem の右クリックを検出する方法は?

Question

Windows 10 上の 32 ビット Delphi 11 VCL アプリケーションで、TApplicationEventsコンポーネントを使用して Windows メッセージをキャッチします。残念ながら、MenuItemを右クリックしてもメッセージにTApplicationEvents反応しないようです。WM_MENURBUTTONUPTPopupMenu

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  case Msg.message of
      Winapi.Messages.WM_MENURBUTTONUP: CodeSite.Send('TForm1.ApplicationEvents1Message: WM_MENURBUTTONUP');
  end;
end;

マイクロソフトのドキュメントには次のように記載されています。

WM_MENURBUTTONUP メッセージ
カーソルがメニュー項目上にあるときに、ユーザーがマウスの右ボタンを離したときに送信されます。

別の方法として、WM_COMMAND左クリックと右クリックの両方で送信されます。ただし、特定の目的のために、メニュー項目を右クリックしたときにのみ反応する必要があります。