社区
Delphi
帖子详情
关于控制鼠标的一个问题,以前用vb做出来过,现在忘了
月光
2002-11-12 03:26:33
想做一个程序在用户点X的时候把鼠标自动移到button1上,该怎么写?
...全文
17
5
打赏
收藏
关于控制鼠标的一个问题,以前用vb做出来过,现在忘了
想做一个程序在用户点X的时候把鼠标自动移到button1上,该怎么写?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lws0472
2002-11-12
打赏
举报
回复
我还是不太明白,你是不是想在关闭程序前自动做一些处理
用SetCurSor就可以了,如
把鼠标移到(200,200)位置
SetCurSorPos(200,200)
xzhifei
2002-11-12
打赏
举报
回复
让鼠标移动到控件上的方法
procedure MoveMouseIntoControl(AWinControl: TWincontrol);
var
rtControl: TRect;
begin
rtControl := AWinControl.BoundsRect;
MapWindowPoints(AWinControl.Parent.Handle, 0, rtControl, 2);
SetCursorPos(rtControl.Left + (rtControl.Right - rtControl.Left) div 2,
rtControl.Top + (rtControl.Bottom - rtControl.Top) div 2);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MoveMouseIntoControl(Button1);
end;
月光
2002-11-12
打赏
举报
回复
to:lws0472(天外飞仙) 就是用户点了关闭程序时把鼠标移到程序内的一个控件上
to:hongqi162(海浪花) setfocus好像是得到焦点而没有把鼠标移上去吧
hongqi162
2002-11-12
打赏
举报
回复
可以在onclick里写!button.setfocus!是不是这样的??
lws0472
2002-11-12
打赏
举报
回复
把鼠标移到button1上可以用
setCursorPos或clipCursor来做
而你的X指的什么,包括你的应用程序之外的点吗
VB
亲身开发
一个
Windows软件(三)界面设计
VB
界面设计
VB
使用API的简明教程
由于这是《细水长流话API》的第一话,我必须注意到所讲的内容要简单,并且让你有耐心可以看到往后的文章,所以我希望可以通过
一个
比较特别的例子来引起你的注意(这样的情况不会总是有的)。让我们想想,
VB
里的...
VB
调用API的学习
编写
VB
程序时,经常遇到的
问题
就是
VB
给我们准备的东西我们会用,控件组装就是
一个
程序,然而一旦想要实现
VB
没有直接提供的功能,就会不知所措。 正在装载数据…… 其实Windows操作系统本身就给...
VB
使用大全 - 2
12、如何解决
VB
中的Grid控件的打印
问题
---- Grid 控 件 是Visual Basic 最 常 见 控 件 之 一, 从
VB
3.0 到
VB
5.0 都有该 控 件。 也 是
VB
爱 好 者 最 喜 爱 的 工 具 之 一。 用 它 可 以 以表 格 的 形 式 显 示...
VB
编程必备!_
VB
源码之友(内含-下载-破解-使用方法)
这个控件绝对要的!名字叫
VB
源码之友—— 发现!—— 今天我在编程序的时候正在听《山丘》(推荐听)这首歌、什么?听歌跟编程有什么关系?...这是
一个
错误信息处理的代码、我一看不是我打的、就联想起了刚
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章