社区
Delphi
帖子详情
鼠标的右击事件!
ProgramBeginner
2003-10-16 04:42:19
一个button的OnClick是左(单)击鼠标的事件,请问button有没有右击事件?如果我想响应鼠标的右击事件,该如何实现?谢谢,比较急,在线等!
...全文
37
7
打赏
收藏
鼠标的右击事件!
一个button的OnClick是左(单)击鼠标的事件,请问button有没有右击事件?如果我想响应鼠标的右击事件,该如何实现?谢谢,比较急,在线等!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
ProgramBeginner
2003-10-16
打赏
举报
回复
收到,请接分!:)
ProgramBeginner
2003-10-16
打赏
举报
回复
收到,请接分!:)
delphi_xizhousheng
2003-10-16
打赏
举报
回复
可以自己写拦截右键消息的句柄
procedure RBDown(var Msg:TWMRBUTTONDOWN);message WM_RBUTTONDOWN
也可以在控件的MouseDown事件中判断Button的值
ProgramBeginner
2003-10-16
打赏
举报
回复
liufuyahong大哥:我是说在一个button上点击鼠标右键才触发,并不是只要点击鼠标右键就触发,您明白吗?请您再指点一二,谢谢!
liufuyahong
2003-10-16
打赏
举报
回复
或者
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
ShowMessage('Right')
else if Button=mbLeft then
ShowMessage('left');
end;
liufuyahong
2003-10-16
打赏
举报
回复
声明
procedure LBDwon(var Msg:TWMLBUTTONDOWN);message WM_LBUTTONDOWN;//左键
procedure RBDown(var Msg:TWMRBUTTONDOWN);message WM_RBUTTONDOWN;//右键
实现
procedure LBDwon(var Msg:TWMLBUTTONDOWN);
begin
//做你想做的事
end;
procedure RBDown(var Msg:TWMRBUTTONDOWN);
begin
//做你想做的事
end;
chenzhengqiu
2003-10-16
打赏
举报
回复
鼠标的右击时将产生一个OnContextPopup事件,但该事件不是右键独有的,键盘上的菜单键也将触发该事件。
FLASH actionscript3游戏编程 处理
右击
事件
拦截
鼠标
右击
实现自定义
鼠标
右击
功能比如
右击
寻路移动
FLASH actionscript3游戏编程 处理
右击
事件
拦截
鼠标
右击
实现自定义
鼠标
右击
功能.zip
鼠标
右击
屏蔽JavaScript代码
鼠标
右击
屏蔽JavaScript代码,
鼠标
右击
屏蔽JavaScript代码,
鼠标
右击
屏蔽JavaScript代码
JS
鼠标
右击
弹出菜单效果
JS
鼠标
右击
弹出菜单效果 JS
鼠标
右击
弹出菜单效果 JS
鼠标
右击
弹出菜单效果
QT小项目-天气预报桌面小程序(
鼠标
右击
事件
2)
QT小项目-天气预报桌面小程序(
鼠标
右击
事件
2)
系统
右击
菜单扩展,
鼠标
右击
文件路径获取
某些情况下,我们希望直接通过
右击
鼠标
的
右击
菜单对某文件直接操作,这需要我们自己开发程序对
右击
菜单进行扩展。本项目完成(1)右键菜单扩展(2)右键选中多个文件,获取文件路径。得到文件路径,接下来想怎么操作文件都可以
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章