！！！请问怎样把鼠标控制在一个窗口之内？？？

Question

如题

Answer 1

限制鼠标的活动范围：
在Form中放置二个 Button, 然後分别为这两个按钮定义OnClick响应事件如下: 
// 开始
procedure TForm1.Button1Click(Sender: TObject); 
var 
btButton2: TRect; 
begin 
btButton2 := Button2.BoundsRect; 
MapWindowPoints(handle, 0, btButton2, 2); // 座标换算 
ClipCursor(@btButton2); // 限制鼠标移动区域 
end; // 还原 
procedure TForm1.Button2Click(Sender: TObject); 
var 
btScreen: TRect; 
begin 
btScreen := Rect(0, 0, Screen.Width, Screen.Height); 
ClipCursor(@btScreen); 
end;

Answer 2

Var rect:TRect; 　　Begin 　　 rect.Left:=0; rect.Top:=0; rect.Right:=0; rect.Bottom:=Screen.Height; 　　 ClipCursor(@rect); {将鼠标锁定在屏幕左侧} 　　End; 

Answer 3

use shellapivar 
btScreen: TRect; 
begin 
btScreen := Rect(0, 0, Screen.Width, Screen.Height); 
ClipCursor(@btScreen); 
end;

Answer 4

procedure TForm1.Button2Click(Sender: TObject);
var
  r:TRect;
begin
  r:=rect(form1.Left,form1.Top,form1.Left+form1.Width,form1.Top+form1.Height);
  clipCursor(@r);
end;