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

ここではマウスの移動範囲を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 ランキング