Delphiフォームのクローズボタン上にマウスがあるかどうかを検出します

Question

私のアプリケーション内の非アクティブなフォーム上のユーザーがクローズボタンをクリックしたかどうかを検出したいと思います。フォームのクローズボタンでマウスがホバーすると検出できますので、フォームが閉じられているときにそのデータを使用できますか？

Answer 1

WM_NCHITTESTメッセージをlParam値のマウスの画面座標を渡して送信することができます。戻り値がHTCLOSEの場合、マウスは閉じるボタンの上にあります。

ただし、マウスが[閉じる]ボタンを超えているという理由だけで、ユーザーが実際にボタンをクリックしたことが保証されるわけではありません。例えば、ユーザーがボタンの上にマウスを移動することができ、その後、代わりにキーボードの上にのAlt + F4を入力（またはAltキー+スペース、Closeオプションにある下向き矢印、およびは同じアクションを起動を、Enterキーを押しますAlt + F4）。

閉じる]ボタンをクリック、またはキーボードショートカットを使用しているかどうか、同じWM_CLOSEメッセージが（フォームのOnCloseQueryとOnCloseイベントをトリガする）ウィンドウに送信され、そしてウィンドウが閉じられているなぜそれがを報告しません。

差別化が必要な場合は、フォームにWM_NCLBUTTONDOWN/WM_NCLBUTTONUPとWM_SYSCOMMANDのウィンドウメッセージを処理させることができます。閉じるボタンをクリックしてウィンドウを閉じると、WM_CLOSEの前にWM_NCLBUTTON...があり、wParamがHTCLOSEに設定されます。キーボードショートカットでウィンドウを閉じるときは、WM_CLOSEの前にWM_SYSCOMMANDがあり、wParamはSC_CLOSEに設定されます。