Delphi動態添加菜單

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    Button1: TButton;
    N0000000001: TMenuItem;
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N0000000001Click(Sender: TObject);
  private
    procedure MyClick(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  subItemName:String;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
var addSubItem:TMenuItem;
    i:Integer;
    N:Integer;
    SubMenuItemSource:String;
begin
N:=5;
SubMenuItemSource:='動態-';
for i:=0 to N do //N等於要添加的動態菜單數目,需事先定義為數值型變數,並賦值
begin
addSubItem:= TMenuItem.Create(Self);
addSubItem.Name := 'A'+IntToStr(i);
addSubItem.Caption := SubMenuItemSource+IntToStr(i);// 步驟1的SubMenuItemSource應先賦值
//FileOpenItem.Add(addSubItem);//在名稱為FileOpenItem的功能表項目下添加子功能表
addSubItem.OnClick:=self.MyClick;//步驟2的MyClick(),自訂菜單要響應的事件
self.MainMenu1.Items.Add(addSubItem);
end
end;

procedure TMainForm.MyClick(Sender: TObject);  //動態菜單OnClick事件響應
begin
ShowMessage(TMenuItem(Sender).Caption);      //顯示選中的動態功能表標題,
end;

procedure TMainForm.Button1Click(Sender: TObject);
var addSubItem:TMenuItem;
    i:Integer;
    N:Integer;
    SubMenuItemSource:String;
begin
self.MainMenu1.Items[0].OnClick:=nil; //變為無事件
N:=5;
SubMenuItemSource:='KKKKK-';
subItemName:=subItemName+'T';
for i:=0 to N do //N等於要添加的動態菜單數目,需事先定義為數值型變數,並賦值
begin
addSubItem:= TMenuItem.Create(Self);
addSubItem.Name := subItemName+IntToStr(i);
addSubItem.Caption := SubMenuItemSource+IntToStr(i);// 步驟1的SubMenuItemSource應先賦值
//FileOpenItem.Add(addSubItem);//在名稱為FileOpenItem的功能表項目下添加子功能表
addSubItem.OnClick:=self.MyClick;//步驟2的MyClick(),自訂菜單要響應的事件
self.MainMenu1.Items[0].Add(addSubItem);
end
end;

procedure TMainForm.N0000000001Click(Sender: TObject);
begin
showmessage('aaa');
end;

end.