delphi 将鼠标锁定在一定范围


本文整理自网络,侵删。

 如何将鼠标锁定在一定的范围内呢?
请在Form中放置二个 Button, 然後分别为这两个按钮定义OnClick响应事件如下:
// 限制
procedure TForm1.Button1Click(Sender: TObject);
var
rtButton2: TRect;
begin
rtButton2 := Button2.BoundsRect;
MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算
ClipCursor(@rtButton2); // 限制鼠标移动区域
end;
// 还原
procedure TForm1.Button2Click(Sender: TObject);
var
rtScreen: TRect;
begin
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;

相关阅读 >>

Delphi 时间与相关类型(3): tfiletime、tsystemtime 及 dos 时间

Delphi firedac fdconnection 事务

Delphi inputbox 输入时显示*号

Delphi 屏幕拷贝程序的源代码

github上通过星级评估排名前10的最受欢迎的开源Delphi项目

Delphi 取得ie下面输入框内容

Delphi xp下的进程静音技术

Delphi中webbrowser问题集锦

Delphi encddecd 加密解密

Delphi 检查注册表键、键值是否存在

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...