窗体主菜单隐藏问题?

Question

我想实现主菜单的隐藏和显示,请问如何实现?

Answer 1

不太清楚你说的意思
如果想把某个菜单隐藏，直接将其visible属性置为false就行了

Answer 2

我是说把整个主菜单都隐藏,MainMenu没有visible属性，只有AutoMerge可是这个只能隐藏但不能显示了

Answer 3

动态创建、释放主菜单。
例如：
var MainMenu:TMainMenu;procedure TForm1.Button1Click(Sender: TObject);
begin
  MainMenu:=TMainMenu.Create(self);
  MainMenu.Items.Add(NewItem('haha',0,False,True,nil,0,'MenuItem1'));
  MainMenu.Items.Add(NewItem('hehe',0,False,True,nil,0,'MenuItem2'));
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  MainMenu.Free;
end;

Answer 4

procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.Menu:=nil;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  form1.Menu:=mainmenu1;end;

Answer 5

//隐藏
procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.Menu:=nil;
end;
//显示
procedure TForm1.Button3Click(Sender: TObject);
begin
  form1.Menu:=mainmenu1;
end;