blocks|key|1001863|text|你是说PopupMenu1.PopupComponent吗？|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1001864|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

Did you mean PopupMenu1.PopupComponent ?

blocks|key|256509|text|您可以通过以下方式在PopupMenu的TMenuItem的click事件中获取调用方组件|type|unstyled|depth|inlineStyleRanges|entityRanges|data|256510|Caller+:=+((Sender+as+TMenuItem).GetParentMenu+as+TPopupMenu).PopupComponent;|code-block|syntax|javascript|256511|以下是分配给多个列表框并解决导出到文件功能的PopupMenu示例：|256512|procedure+TForm1.mniExportFileClick(Sender:+TObject);
var+Caller:+TObject;
begin++
++if+SaveTextFileDialog1.Execute+then
++begin
++++Caller+:=+((Sender+as+TMenuItem).GetParentMenu+as+TPopupMenu).PopupComponent;
++++(Caller+as+TListBox).Items.
++++++SaveToFile(SaveTextFileDialog1.FileName,
++++++++StandardEncodingFromName(
++++++++++SaveTextFileDialog1.Encodings[SaveTextFileDialog1.EncodingIndex]));
++end;
end;+|256513|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

You can get the caller component within the click event of the TMenuItem of a PopupMenu by 

<pre><code>Caller := ((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent;
</code></pre>

An Example of a PopupMenu which is assigned to several list boxes and solves the export to file functionality:

<pre><code>procedure TForm1.mniExportFileClick(Sender: TObject);
var Caller: TObject;
begin 
 if SaveTextFileDialog1.Execute then
 begin
 Caller := ((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent;
 (Caller as TListBox).Items.
 SaveToFile(SaveTextFileDialog1.FileName,
 StandardEncodingFromName(
 SaveTextFileDialog1.Encodings[SaveTextFileDialog1.EncodingIndex]));
 end;
end; 
</code></pre>

blocks|key|2883865|text|作为最后的手段，您可以在TPopupMenu.OnPopup中使用Mouse.CursorPos在表单上查找此组件。但可能有一种更好/更简单的方法。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2883866|entityMap^0|C|I|X|F|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]|$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|M|8|@]|D|@]|E|$]]]|G|$]]

As a last resort you can use <code>Mouse.CursorPos</code> in <code>TPopupMenu.OnPopup</code> to find this component on a form. But there is probably a better/easier way.

blocks|key|1005885|text|PopUpMenu.PopupComponent指示上次在响应鼠标右键单击时显示弹出菜单的组件|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1005886|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

PopUpMenu.PopupComponent indicates the component that last displayed the popup menu in response to the right mouse click

blocks|key|1475172|text|我有一堆面板，我想让用户右键单击这些面板中的任何一个并执行“删除文件”操作。因此，我有一个弹出式菜单与所有这些面板相关联。这是我找出哪个面板被右键单击的方法：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1475173|(注意:我放了很多注释来清楚地解释它是如何工作的。但是如果你不喜欢它，你可以把代码压缩到2行(参见第二个过程)。|1475174|因此，如果您为该弹出菜单指定了操作：|1475175|procedure+Tfrm.actDelExecute(Sender:+TObject);
VAR
++PopMenu:+TPopupMenu;
++MenuItem:+TMenuItem;
++PopupComponent:+TComponent;
begin
+{+Find+the+menuitem+associated+to+this+action+}
+MenuItem:=+TAction(Sender).ActionComponent+as+TMenuItem;++{+This+will+crash+and+burn+if+we+call+this+from+a+pop-up+menu,+not+from+an+action!+But+we+always+use+actions,+so....+}

+{+Was+this+action+called+by+keyboard+shortcut?+Note:+in+theory+there+should+be+no+keyboard+shortcuts+for+this+action+if+the+action+can+be+applyed+to+multiple+panels.+We+can+call+this+action+ONLY+by+selecting+(right+click)+a+panel!+}
+if+MenuItem+=+NIL+then
++begin
+++MsgError('This+action+should+not+be+called+by+keyboard+shortcuts!');
+++EXIT;
++end;

+{+Find+to+which+pop-up+menu+this+menuitem+belongs+to+}
+PopMenu:=+(MenuItem.GetParentMenu+as+TPopupMenu);

+{+Find+on+which+component+the+user+right+clicks+}
+PopupComponent+:=+PopMenu.PopupComponent;

+{+Finally,+access+that+component+}
+(PopupComponent+as+TMonFrame).Delete(FALSE);
end;|code-block|syntax|javascript|1475176|如果只有一个简单的弹出式菜单(未指定操作)，则为：|offset|length|style|BOLD|1475177|procedure+Tfrm.actDelHddExecute(Sender:+TObject);
VAR+PopupComponent:+TComponent;
begin
+PopupComponent+:=+((Sender+as+TMenuItem).GetParentMenu+as+TPopupMenu).PopupComponent;
+(PopupComponent+as+TMonFrame).Delete(TRUE);
end;|1475178|您可以将所有这些代码放在一个返回TPanel的函数中，并像这样调用它：|1475179|procedure+Tfrm.actDelWallExecute(Sender:+TObject);
begin
+if+GetPanelFromPopUp(Sender)+<>+NIL
+then+GetPanelFromPopUp(Sender).Delete(FALSE);
end;|1475180|entityMap^0|0|0|0|0|O|1|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Z|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|10|8|@]|9|@]|A|$]]|$1|F|3|G|5|H|7|11|8|@]|9|@]|A|$I|J]]|$1|K|3|L|5|6|7|12|8|@$M|13|N|14|O|P]]|9|@]|A|$]]|$1|Q|3|R|5|H|7|15|8|@]|9|@]|A|$I|J]]|$1|S|3|T|5|6|7|16|8|@]|9|@]|A|$]]|$1|U|3|V|5|H|7|17|8|@]|9|@]|A|$I|J]]|$1|W|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|X|$]]

I have a bunch of panels and I want to let the user right click any of those panels and perform a &quot;delete file&quot; action.
So, I have a single pop-up menu associated with all those panels.
This is how I find out which panel was right clicked:
(Note: I put lots of comments to clearly explain how it works. But if you don't like it, you can compactify the code to 2 lines (see the second procedure)).
So, if you have actions assigned to that pop-up menu:
<pre><code>procedure Tfrm.actDelExecute(Sender: TObject);
VAR
 PopMenu: TPopupMenu;
 MenuItem: TMenuItem;
 PopupComponent: TComponent;
begin
 { Find the menuitem associated to this action }
 MenuItem:= TAction(Sender).ActionComponent as TMenuItem; { This will crash and burn if we call this from a pop-up menu, not from an action! But we always use actions, so.... }

 { Was this action called by keyboard shortcut? Note: in theory there should be no keyboard shortcuts for this action if the action can be applyed to multiple panels. We can call this action ONLY by selecting (right click) a panel! }
 if MenuItem = NIL then
 begin
 MsgError('This action should not be called by keyboard shortcuts!');
 EXIT;
 end;

 { Find to which pop-up menu this menuitem belongs to }
 PopMenu:= (MenuItem.GetParentMenu as TPopupMenu);

 { Find on which component the user right clicks }
 PopupComponent := PopMenu.PopupComponent;

 { Finally, access that component }
 (PopupComponent as TMonFrame).Delete(FALSE);
end;
</code></pre>
If you only have a simple pop-up menu (no actions assigned):
<pre><code>procedure Tfrm.actDelHddExecute(Sender: TObject);
VAR PopupComponent: TComponent;
begin
 PopupComponent := ((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent;
 (PopupComponent as TMonFrame).Delete(TRUE);
end;
</code></pre>
You can put all that code in a single function that returns a TPanel and call it like this:
<pre><code>procedure Tfrm.actDelWallExecute(Sender: TObject);
begin
 if GetPanelFromPopUp(Sender) &lt;&gt; NIL
 then GetPanelFromPopUp(Sender).Delete(FALSE);
end;
</code></pre>

Having a popup menu attached to several components on a form (buttons, but also things like TCharts), I would like to know which component was right clicked to start the popup menu in the first place.

The Sender parameter of the click method just points to the TMenuItem, its parent to the popup menu (or the parenting menu item).

How do I get the originating component?

What is the component a popup menu click originated from

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

有一个弹出式菜单附加到表单上的几个组件(按钮，但也像TCharts)，我想知道哪个组件被右击以启动弹出菜单在第一个地方。click方法的发送者参数仅指向TMenuItem，它是弹出菜单的父级(或父级菜单项)。如何获取原始组件？

问弹出菜单单击的组件是什么
EN

回答 5

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问弹出菜单单击的组件是什么EN

回答 5

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问弹出菜单单击的组件是什么
EN