本文整理自网络,侵删。
下面把鼠标的移动区域限制在(100,100,200,200)
var
rect:TRect;
begin
rect.Left:=100;
rect.Top:=100;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);
end;
恢复鼠标的移动区域
windows.ClipCursor(0);
相关阅读 >>
Delphi android实例-trectangle加载图片(xe8+小米2)
python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本
更多相关阅读请进入《Delphi》频道 >>