delphi - Delphiでマウスカーソルの寸法を取得するには?

Question

Toolbar2000コンポーネントを使用しています。システム スケールが 100% を超えると、正しい位置の下にボタンのヒントが表示されます。したがって、HintPos を手動で設定する必要があります。私は持っていMouse.CursorPosます。ただし、ヒントはマウスカーソル画像の下に表示する必要があります。

マウスカーソルの寸法を取得するには?

Answer 1

これは Windows 7 の問題であり、適切な解決策はありません。GetSystemMetrics(SM_CYCURSOR)背景付きのカーソル画像のサイズを返します。また、システム スケールが 100% を超えると、この値はさらに不正確になるようです。Delphi XE2 は、間違った位置に関するヒントも表示します。ただし、Explorer が正しい位置に関するヒントを示していることに注意してください。