1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

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.