限制鼠标在窗体中的移动

{
使用Windows API函数 ClipCursor, 可以限制鼠标在屏幕中指定的矩形范围里移动:
}

//限制鼠标在窗体中的移动
//并在单击窗体后释放鼠标
procedure TForm1.FormCreate(Sender: TObject);
var r : TRect;
begin
//加限制前先把鼠标移动到指定的矩形范围里
r := BoundsRect;
ClipCursor(@R);
end;

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