使用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;
//限制鼠标在窗体中的移动
//并在单击窗体后释放鼠标
procedure TForm1.FormCreate(Sender: TObject);
var r : TRect;
begin
//加限制前先把鼠标移动到指定的矩形范围里
r := BoundsRect;
ClipCursor(@R);
end;procedure TForm1.FormClick(Sender: TObject);
begin
//要释放鼠标
ClipCursor(nil);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货