マウスカーソルの移動制限を勝手に解除されてしまう (ID:37364)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以下のコードを実行すると、１回目のボタンクリックで ボタンからマウスカーソルが出なくなり、 ２回目のクリックで、元に戻ります。 しかし、マウスカーソルが出ない状態でWindowsキーを押すと、 メニューが出てきた段階でフォーカスが移るのか、 カーソルの移動制限が解除されてしまいます。 これは、なんとかならないでしょうか？ パソコンの電源を無理やり切らない限り、マウスカーソルの 移動制限を解除できないくらいにしたいのですが・・・ procedure TForm1.Button1Click(Sender: TObject); var R: TRect; const bo: Boolean = False; begin if not bo then begin GetWindowRect(TWinControl(Sender).Handle, R); ClipCursor(@R); bo := not bo; end else begin ClipCursor(nil); bo := not bo; end; end;