Разное



Последние книги
Самое популярное
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация



Вопросы
  Создание и удаление полей
   Категория: Базы данных
  Шифрование текста по паролю
   Категория: Текст и строки
  К-во рабочих дней в месяце
   Категория: Математика
  Как поместить графический элемент в ListBox
   Категория: Компоненты
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Список ошибок BDE
   Категория: Базы данных
  Как показать balloon tooltips в программе
   Категория: Приложение

Delphi - База Знаний: Программно скрыть MainMenu

  << Вернуться к Содержанию   

//Прячем:

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

//Показываем:
 SetMenu(Handle,MainMenu1.Handle);

 //или

 procedure TForm1.Button1Click(Sender: TObject);
begin
if Form1.Menu=MainMenu1 then
Form1.Menu := nil else
Form1.Menu := MainMenu1;
end;
  << Вернуться к Содержанию