引用TMenuItem的问题

Question

我想在程序中自定义一函数，用于处理特定事件，想要引用已经在主界面上设置的TmenuItem，该怎么引用？真心求教啊，在线急等！！！

Answer 1

type
  TMenuNotifyEvent = Procedure(sender: TMenuItem) of object;
type
  TFrmMain = class(TForm)procedure AddMenu;
  var
    SubItem: TMenuItem;
    EventName: TMenuNotifyEvent;
  begin
    subitem := TMenuItem.Create(self);
    //subitem.Caption := ...
    EventName := mclick;
    SubItem.OnClick := TNotifyEvent(EventName);
    MainMenu1.Items[3].Add(subitem);
  end;procedure TFrmMain.MClick(mitem: TMenuItem);
begin
.....
end;

Answer 2

我先试试初看起来，好像用了动态菜单技术吧！我在我的自定义函数里，函数参量是这样定义的：mitem:array of Tmenuitem不知妥否？