1

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

谁能给我一个关于如何检测底层备忘录的指针。

谢谢

科林

4

1 回答 1

6

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

procedure TForm1.PopupItemClick(Sender: TObject);
begin
  if PopupMenu1.PopupComponent = Memo1 then
    ..
  else
    ..
于 2012-05-09T22:57:34.180 回答