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 使用并行库中的ttask

Delphi捕获twebbrowser的close事件

Delphi datasnap http用法注意事项

Delphi f1026 file not found: ''quickrpt.dcu''解决方法

Delphi实现文件拖放代码

Delphi获取本地全部盘符并存如combobox1

Delphi中使用 twebbrowser 编辑网页

Delphi 文件查找记录类型 - tsearchrec

Delphi 隐藏任务栏程序，取消自动对齐和网格对齐

Delphi多线程学习：多线程数据库查询（ado）

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

转载请注明出处：木庄网络博客 » delphi 将鼠标锁定在一定范围