社区
Delphi
帖子详情
如何将鼠标的移动,限制在一定的范围内??
mikko11
2003-03-14 09:20:33
如题
...全文
457
9
打赏
收藏
如何将鼠标的移动,限制在一定的范围内??
如题
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
nuaawenlin
2003-03-14
打赏
举报
回复
我觉得你应该在最后释放!
sysu
2003-03-14
打赏
举报
回复
可能用鼠标Hook可以做到吧,不过我也没试过。
mikko11
2003-03-14
打赏
举报
回复
非常感谢各位的答案。
to sysu(死树)
如果出现你所说的情况,那怎么处理呢?
sysu
2003-03-14
打赏
举报
回复
用ClipCursor有时会失效的,如果指定的rect有一部分在Form的外面,只要把鼠标在Form外点一下,就能随便移动了。还有就算整个rect在Form内,只要按一下Ctrl+Alt+Del,也能随便移动了。
307
2003-03-14
打赏
举报
回复
: l0f(凌风)的方法不错!应该可以实现!
OO_is_just_P
2003-03-14
打赏
举报
回复
呵呵,HubDog葵花宝典
智商无下限
2003-03-14
打赏
举报
回复
简单一点的:
procedure TForm1.Button2Click(Sender: TObject);
var rect:Trect;
begin
rect.Left:=100;
rect.Top:=0;
rect.Right:=500;
clipcursor(@rect);
end;
OO_is_just_P
2003-03-14
打赏
举报
回复
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;
智商无下限
2003-03-14
打赏
举报
回复
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;
HTML 5
移动
开发从入门到精通
本课程讲述了HTML 5
移动
开发的各种技术,通过本课程的学习,用户可以掌握HTML 5
移动
开发的技巧
js
限制
鼠标
移动
范围
js
限制
鼠标
移动
范围
(js隐藏
鼠标
) js
鼠标
禁用功能 js 拖拽
Unity
鼠标
拖动3D物体
移动
,并
限制
拖动
范围
Unity
鼠标
拖动3D物体
移动
,并
限制
拖动
范围
将
鼠标
锁定在
一定
的
范围
内
如何将
鼠标
锁定在
一定
的
范围
内呢?请在Form中放置二个 Button, 然後分别为这两个按钮定义OnClick响应事件如下://
限制
procedure TForm1.Button1Click(Sender: TObject);varrtButton2: TRect;beginrtButton2 := ...
vue3 - 【完整源码】实现容器用
鼠标
拖曳功能,将容器 “
限制
在指定
范围
内“
鼠标
拖拽
移动
并拿到横纵坐标(详细示例源码及注释,一键复制开箱即用)
vue3实现用
鼠标
拖动容器div,vue3
鼠标
拖曳div容器,vue3怎么让div dom容器能用
鼠标
拖动,vue3
鼠标
拖动一个div容器的功能,vue3实现元素可拖动并且
限制
在一个
范围
内,vue3元素可用
鼠标
拖动 并将其在另一个容器中
限制
...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章