Delphi限制鼠標移動區域(附有還原方法)

限制鼠標的活動區域，常見於游戲中、圖像處理中，只讓鼠標在指定的區域內移動，並附上了解除限制的方法，具體實現代碼：

一、限制鼠標活動區域

1 procedure TForm1.Button1Click(Sender: TObject); // 限制 2 var 3 btButton2: TRect; 4 begin 5 btButton2 := Button2.BoundsRect; 6 MapWindowPoints(handle, 0, btButton2, 2); // 座標換算 7 ClipCursor(@btButton2); // 限制鼠標移動區域 8 end;

二、解除限制：恢復鼠標正常運行

vIEw source print? 1 procedure TForm1.Button2Click(Sender: TObject); // 還原 2 var 3 btScreen: TRect; 4 begin 5 btScreen := Rect(0, 0, Screen.Width, Screen.Height); 6 ClipCursor(@btScreen); 7 end;