弹出菜单来源

li_oxen 2007-01-03 10:47:40
我有10个按钮 popupmenu 属性 都设置为 pop1(弹出菜单的名字)
我要怎么才能知道当前的菜单是点击了那个按钮弹出来的
...全文
147 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
zaza_bbface 2007-01-04
  • 打赏
  • 举报
回复
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
showmessage(PopupMenu1.PopupComponent.Name);
end;
li_oxen 2007-01-04
  • 打赏
  • 举报
回复
我是在ocx里面用的 zaza_bbface(我试着成熟一点~) 的这个报错 ! 邪门了

16,749

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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