限制鼠標在窗體中的移動

---------------------------------------------------------------------------
使用Windows API函數(shù) ClipCursor, 可以限制鼠標在屏幕中指定的矩形范圍里移動:
---------------------------------------------------------------------------

//限制鼠標在窗體中的移動
//并在單擊窗體后釋放鼠標
procedure TForm1.FormCreate(Sender: TObject);
var
r : TRect;
begin
//加限制前先把鼠標移動到指定的矩形范圍里
r := BoundsRect;
ClipCursor(@R);
end;

procedure TForm1.FormClick(Sender: TObject);
begin
//要釋放鼠標
ClipCursor(nil);
end;