关于右键快捷菜单

mysine 2010-12-24 04:55:01
窗体上有N个Label控件共用一个快捷菜单,我想知道弹出快捷菜单的是哪儿一个Label,有没有人知道呀?
最好给个小例子,谢谢!!!
...全文
57 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
[Quote=引用 4 楼 zkroy36 的回复:]
你在所有的label(控件)的单击事件里,记录下当前的label(控件),或者label(控件)的tag 或者...!
那么你在菜单的事件中,就可以对刚才记录的控件进行任何处理!
是否要这个?
[/Quote]
+1
mysine 2010-12-24
  • 打赏
  • 举报
回复
[Quote=引用 3 楼 aqtata 的回复:]
OnPopup事件


Delphi(Pascal) code
ShowMessage((PopupMenu1.PopupComponent as TLabel).Caption);
[/Quote]

非常感谢
zkroy36 2010-12-24
  • 打赏
  • 举报
回复
你在所有的label(控件)的单击事件里,记录下当前的label(控件),或者label(控件)的tag 或者...!
那么你在菜单的事件中,就可以对刚才记录的控件进行任何处理!
是否要这个?
一如当初 2010-12-24
  • 打赏
  • 举报
回复
OnPopup事件

ShowMessage((PopupMenu1.PopupComponent as TLabel).Caption);
mysine 2010-12-24
  • 打赏
  • 举报
回复
我可以没表太清楚,是这样的
因为是共用一个快捷菜单,所以我要在菜单的事件里先分清楚是哪儿个控件触发的,然后再针对触发快捷菜单的控件编写程序。
zkroy36 2010-12-24
  • 打赏
  • 举报
回复
你选择一个label ,触发label的单击事件 才会弹出快捷菜单!
我想你应该知道是那个了吧!

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧