Программно скрыть MainMenu

[artemavd]

Добрый день! Собственно вопрос. Как программно по нажатию на кнопку скрыть MainMenu? Никак не получается. Данные строчки кода:

 Form1.MainMenu1.Items.Enabled:=False;
 Form1.MainMenu1.Items.Visible:=False;

никакого результата не дают.

[MaxNik2009]

SetMenu(handle{хендл твоего окна}, 0); // прячем меню
SetMenu(handle, MainMenu1.Handle); // показываем меню

[artemavd]

Объединил оба варианта, получил такой рабочий код:
Прячем:

 Form1.MainMenu1.AutoMerge:=True;
 SetMenu(Handle,0);

Показываем:

 SetMenu(Handle,MainMenu1.Handle);

Вроде работает
P.S. обоим дал плюсом в репу.

[mihali4]

А так не пойдет ?

procedure TForm1.Button1Click(Sender: TObject);
begin
if Form1.Menu=MainMenu1 then
Form1.Menu := nil else
Form1.Menu := MainMenu1;
end;