限制鼠標(biāo)的活動(dòng)范圍：
在Form中放置二個(gè) Button, 然後分別為這兩個(gè)按鈕定義OnClick響應(yīng)事件如下:
// 開始
procedure TForm1.Button1Click(Sender: TObject);
var
btButton2: TRect;
begin
btButton2 := Button2.BoundsRect;
MapWindowPoints(handle, 0, btButton2, 2); // 座標(biāo)換算
ClipCursor(@btButton2); // 限制鼠標(biāo)移動(dòng)區(qū)域
end;
// 還原
procedure TForm1.Button2Click(Sender: TObject);
var
btScreen: TRect;
begin
btScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@btScreen);
end;
