登录 用户中心() [退出] 后台管理 注册
   
您的位置: 首页 >> SoftHub关联区 >> 主题: [delphi]老代码维护 -- 取得右键菜单的触发控件[谁弹出的]     [回主站]     [分站链接]
[delphi]老代码维护 -- 取得右键菜单的触发控件[谁弹出的]
clq
浏览(262) - 2019-10-14 17:29:51 发表 编辑

关键字: delphi

[2022-04-14 17:25:35 最后更新]
[delphi]老代码维护 -- 取得右键菜单的触发控件[谁弹出的]

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  ShowMessage((Sender as TPopupMenu).PopupComponent.ClassName);  //这时的 Sender 是菜单本身,要得到是谁触发它的要用 PopupComponent 属性
  ShowMessage((Sender as TPopupMenu).PopupComponent.Name);  //这时的 Sender 是菜单本身,要得到是谁触发它的要用 PopupComponent 属性
  //ShowMessage((Sender as TControl).Name);
  //if Sender = Form1 then
//  if (Sender as TControl).Name = 'Form1' then
//  N_fontAdd.Enabled := False;

end;




[图片]

总数:0 页次:1/0 首页 尾页  
总数:0 页次:1/0 首页 尾页  


所在合集/目录
delphi老代码维护 更多



发表评论:
文本/html模式切换 插入图片 文本/html模式切换


附件:



NEWBT官方QQ群1: 276678893
可求档连环画,漫画;询问文本处理大师等软件使用技巧;求档softhub软件下载及使用技巧.
但不可"开车",严禁国家敏感话题,不可求档涉及版权的文档软件.
验证问题说明申请入群原因即可.

Copyright © 2005-2020 clq, All Rights Reserved
版权所有
桂ICP备15002303号-1