var
SubMenu1,SubMenu2:TMenuItem;
begin
SubMenu1:=TMenuItem.Create(Self);
SubMenu1.Caption:='Test';
MainMenu.Items.Add(SubMenu1);
SubMenu2:=TMenuItem.Create(Self);
SubMenu2.Caption:='Test';
SubMenu1.Add(SubMenu2);
end;
var
SubMenu:TMenuItem;
begin
SubMenu:=TMenuItem.Create(Self);
SubMenu.Caption:='Test';
MainMenu.Items.Add(SubMenu);//PopupMenu一样
//插入用MainMenu.Items.Insert(0,SubMenu);
end;
var
SubMenu:TMenuItem;
begin
SubMenu:=TMenuItem.Create(Self);
SubMenu.Caption:='Test';
MainMenu.Items.Add(SubMenu);//PopupMenu一样
//插入用MainMenu.Items.Insert(0,SubMenu);
end;