Delphi菜单组件TMainMenu使用方法详解

procedure TForm1.Button1Click(Sender: TObject);
var
 MainMenu: TMainMenu;
 MenuItem: TMenuItem;
begin
 //主菜单创建
 MainMenu:=TMainMenu.Create(self);
 Self.Menu:=MainMenu;
 //文件菜单创建
 MenuItem:= TMenuItem.Create(MainMenu);
 MenuItem.Caption:='文件';
 MainMenu.Items.Add(MenuItem);
 //新建子菜单创建
 MenuItem:=TMenuItem.Create(MainMenu);
 MenuItem.Caption:='新建';
 MainMenu.Items[0].Add(MenuItem);
 //子菜单中的子菜单创建
 MenuItem:= TMenuItem.Create(MainMenu);
 MenuItem.Caption:='打开';
 MainMenu.Items[0].Items[0].Add(MenuItem);
 MenuItem:= TMenuItem.Create(MainMenu);
 MenuItem.Caption:='保存';
 MainMenu.Items[0].Items[0].Add(MenuItem);
end;
end.