限制鼠标范围

限制鼠标的活动范围：

在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;