掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスの動く範囲を制限するには (ID：8317)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
スクリーン座標を使って ClipCursor() という API でできます。 { Private 宣言 } public Flag:Boolean; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormClick(Sender: TObject); var r:TRect; LeftTop,RightBottom:TPoint; begin if Flag then ClipCursor(nil) else begin LeftTop := ClientToScreen(Point(0,0)); RightBottom := ClientToScreen(Point(ClientWidth,ClientHeight)); r := Rect(LeftTop.x,LeftTop.y,RightBottom.x,RightBottom.y); ClipCursor(@r); end; Flag := not Flag; end; このコードは、Form1 をクリックするとカーソルが Form1 のクライアント領域 から出られなくなります。もう一度クリックすると元の状態に戻ります。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.