1个弹出菜单和2个备忘录，其中备忘录是从中调用的菜单

Question

我在表单上有2个备忘录和1个Tpopupmenu我已将弹出菜单指定为两个备忘录的弹出菜单。弹出菜单分配了几个菜单项，当我右键单击其中任何一个备忘录并点击其onclick事件中的一个菜单项时，我希望能够知道哪个备忘录是哪个备忘录菜单被调用但无法弄清楚如何找出它是哪个备忘录!!

任何人都可以给我一个关于如何检测基础备忘录的指针。

感谢

科林

Answer 1

您可以使用弹出菜单的PopupComponent属性：

procedure TForm1.PopupItemClick(Sender: TObject);
begin
  if PopupMenu1.PopupComponent = Memo1 then
    ..
  else
    ..