社区
Delphi
帖子详情
鼠标的右击事件!
ProgramBeginner
2003-10-16 04:41:45
一个button的OnClick是左(单)击鼠标的事件,请问button有没有右击事件?如果我想响应鼠标的右击事件,该如何实现?谢谢,比较急,在线等!
...全文
63
6
打赏
收藏
鼠标的右击事件!
一个button的OnClick是左(单)击鼠标的事件,请问button有没有右击事件?如果我想响应鼠标的右击事件,该如何实现?谢谢,比较急,在线等!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
delphi_xizhousheng
2003-10-16
打赏
举报
回复
可以自己写拦截右键消息的句柄
procedure RBDown(var Msg:TWMRBUTTONDOWN);message WM_RBUTTONDOWN
也可以在控件的MouseDown事件中判断Button的值
czdugu
2003-10-16
打赏
举报
回复
liufuyahong: 这样的话在其它地方点右健也会触发消息处理的
如何判断鼠标就在tbuuton上呢?偶个人认为还是用二楼的。
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;
czdugu
2003-10-16
打赏
举报
回复
up
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;
csntgao
2003-10-16
打赏
举报
回复
Mousedown 检查Button的值
FLASH actionscript3游戏编程 处理
右击
事件
拦截
鼠标
右击
实现自定义
鼠标
右击
功能比如
右击
寻路移动
FLASH actionscript3游戏编程 处理
右击
事件
拦截
鼠标
右击
实现自定义
鼠标
右击
功能.zip
鼠标
右击
屏蔽JavaScript代码
鼠标
右击
屏蔽JavaScript代码,
鼠标
右击
屏蔽JavaScript代码,
鼠标
右击
屏蔽JavaScript代码
WEB前端中级DOM讲解
本课程带领大家学习,网页中的实际功能的开发,如:轮播图片、购物车、
右击
菜单、表单验证等等功能的实现 课程简介: 第一章:BOM 第二章:DOM基础 第三章:DOM操作CSS 第四章:DOM节点操作 第五章:
事件
入门 ...
JS
鼠标
右击
弹出菜单效果
JS
鼠标
右击
弹出菜单效果 JS
鼠标
右击
弹出菜单效果 JS
鼠标
右击
弹出菜单效果
QT小项目-天气预报桌面小程序(
鼠标
右击
事件
2)
QT小项目-天气预报桌面小程序(
鼠标
右击
事件
2)
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章