Delphi 锁定鼠标移动范围

本文整理自网络，侵删。

 
在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;
 

相关阅读 >>

Delphi bmp转换png

Delphi setwindowshookex - 设置钩子 unhookwindowshookex - 卸掉钩子

Delphi 反外挂，反破解思想代码

Delphi 多线程 开始、暂停、继续、停止

Delphi 快捷键

Delphi 用Delphi提升进程权限为debug权限

Delphi 用 gdi+ 给图片添加花边的例子

Delphi xe5读取android imei id

关于Delphi下的三元运算符（三目运算）

Delphi tbutton.onclick 匿名函数用法

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

转载请注明出处：木庄网络博客 » Delphi 锁定鼠标移动范围