Прячем главное меню формы в Delphi
При размещении на форме компонент TMainMenu «встраивается» в форму в виде панели, отображаясь постоянно в режиме «Run Time». Для него не предусмотрено свойство Visible, поэтому привычным способом скрыть его мы не можем.
Однако мы можем сделать это иначе:
- Поместим на форму компонент TMainMenu, добавим несколько пунктов меню, также поместим на форму кнопку TButton.
- В обработчике событий OnClick компонента TButton запишем следующее:
|
1 2 3 4 |
procedure TForm1.Button1Click(Sender: TObject); begin Form1.Menu := nil; end; |
- В результате главное меню «исчезнет». А для того чтобы его вернуть обратно, необходимо использовать:
|
1 |
Form1.Menu := MainMenu1; |