动态增加菜单，如何写它的事件

Question

动态增加菜单，如何写它的事件
先在这里谢过了

Answer 1

//动态增加
//方法一
      mnuNew:=TMenuItem.Create(self);
      mnuNew.Name:='mnu_Recent'+IntToStr(i);
      mnuNew.Caption:=strTmpFileName[i];
      mnu_File_Recent.Add(mnuNew);
      mnuNew.OnClick:=fOpenRecentProject;//事件
      {方法二
      mnuNew :=NewItem( strTmpFileName[i],scNone,false,true,fOpenRecentProject,0,'mnu_Recent'+IntToStr(i) );
      mnuMainMenu.Items[0].Items[8].Add(mnuNew);//在TfrmMainForm中定义
    procedure fOpenRecentProject(Sender: TObject);procedure TfrmMainForm.fOpenRecentProject(Sender: TObject);
begin
   ///具体实现
end;

Answer 2

menu1.Items[2].Items[1].OnClick:=driver1click;procedure TForm1.driver1click(Sender: TObject);
begin
  
end;
end;
就是这样