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 xe6 通过javascript api调用百度地图

Delphi tcombobox 设置默认值

Delphi shellexecute执行cmd命令窗口不关闭

Delphi copyfileprogressbar 拷贝文件显示进度条

Delphi 错误no ftp list parsers have been registered

Delphi中format函数的用法

Delphi中webbrowser（或者embeddedwebbrowser）控件打开部分网站报“invalid floating point operation”异常的解决方法

Delphi 辨析 field、fielddef、fields、fielddefs、fieldlist、fielddeflist

Delphi 常用api 函数

Delphi返回一个汉字的unicode编码

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

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