请问如何写动态创建的菜单项的click事件

Question

各位好，请问如何写动态创建的菜单项的click事件，比如Menu1，我动态创建了新的菜单项N1，然后当点击N1的时候如何写程序，以实现需要的功能，比如点击N1后，showMessage('N1');
请各位帮忙！谢谢！

Answer 1

private
    { Private declarations }
    procedure gfgfg1Click(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormShow(Sender: TObject);
begin
  N1.OnClick := gfgfg1Click;
end;procedure TForm1.gfgfg1Click(Sender: TObject);
begin
  showMessage(TMenuItem(Sender).Caption);
end;

Answer 2

其实动态控件的事件的思路都是一样的思路如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure Button2Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
  Button2 : TButton;
begin
  Button2 := TButton.Create(Self);
  Button2.Parent := Form1;
  Button2.OnClick :=Button2Click;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage('1');
end;
end.