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