マウスの移動範囲を限定する

ここではマウスの移動範囲をForm内のみに限定します。
但し、ウインドウのサイズを変更、ウインドウを移動したら解除されます。

■使用するAPI関数

■ソースは下記のようになります。

マウスの移動範囲を限定する処理
procedure TForm1.Button1Click(Sender: TObject);
Var
RECT :TRECT;
begin
 //ウインドウのサイズを取得
 GetWindowRect(Form1.Handle,RECT);
 //マウスの移動範囲を限定する
 ClipCursor(@RECT);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 //解除
 ClipCursor(nil);
end;




Win32APIのページへ



ホーム PV ランキング