在delphi中,可以用WIN API锁定鼠标移动范围。
设有两个按钮,button1用来锁定范围,button2用来解除锁定,代码为:
procedure TForm1.Button1Click(Sender: TObject);
var
btPanel: TRect;
begin
btPanel := Panel1.BoundsRect; // 限制在Button2的范围
MapWindowPoints(handle, 0, btPanel, 2); // 座标换算
ClipCursor(@btPanel); // 限制鼠标移动区域
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ClipCursor(nil);
end;