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

Question

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

任何人都可以给我一个关于如何检测底层备忘录的指针.

谢谢

科林

Answer 1

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

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