submemu什么意思?

子菜单

动态菜单

拉个主菜单编辑，假设只有一项
文件 名称叫N1
下拉： 选项1 名称叫N11

再拉两个botton。

type
TForm1 = class(TForm)
Button1: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N11: TMenuItem;
Button2: TButton;
procedure Button1Click(Sender: TObject);
（*****************自己加上下面两个过程*****************）
procedure NewMenuClick(Sender: TObject);
procedure NewMenu2Click(Sender: TObject);
（******************************************************）
procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

在implementation里写上这两个过程：

Procedure Tform1.NewMenuClick(Sender: TObject);
Begin
Form1.close;
End;

procedure Tform1.NewMenu2Click(Sender: TObject);
begin
Application.Message