Создание главного меню программы

Давайте создадим маленькую программу, которая будет формировать некоторое меню. Какое именно — не так уж важно, лишь бы научиться с ним работать.

Создайте новое приложение. Установите на форму один компонент MainMenu. Теперь посмотрим, какие свойства есть у этого компонента.

• AutoHotkeys — свойство, которое определяет, будут ли создаваться автоматически клавиши быстрого вызова. Если выбрать maAutomatic, то Delphi будет автоматиче­ски создавать клавиши. При выборе maManual это придется это делать вручную.

• AutoMegre — свойство, которое определяет автоматическое слияние с меню до­черних окон.
• images — используя это свойство, можно подключать списки картинок, кото­рые смогут отображаться на пунктах меню.
• items — в этом свойстве описываются пункты меню.

Сразу подключим список картинок. Установите на форму компонент imageList с вкладки Win32. Теперь дважды щелкните по нему левой кнопкой мыши, и перед вами откроется окно работы со списком картинок, как это показано на рис:

Нажмите кнопку Add (Добавить), чтобы добавить картинку. Откроется стан­дартное окно открытия файла. Откройте какую-нибудь картинку, и она добавится в список. Желательно, чтобы она была размером 16x16. Именно такие габариты используются по умолчанию.

Можете таким образом добавить несколько картинок. Четыре кнопки, которые были добавлены в этом примере, вы можете увидеть на рис:

После того как была добавлена картинка, вы сразу же можете изменить цвет, который будет прозрачным (цвет фона, который не будет выводиться на кнопку). По умолчанию используется цвет крайнего левого нижнего пиксела картинки. Чтобы изменить цвет, можно ввести код или выбрать системный цвет из ниспа­дающего списка Transparent Color (Прозрачный цвет). Если вы точно не знаете код и использовали не системный цвет, то можно щелкнуть по нужному цвету на самой картинке в поле Selected Image (Выбранная картинка) слева вверху.

Теперь подключим наш список картинок к меню, чтобы его пункты могли со­провождаться графическими изображениями. Выделите компонент MainMenu1 и у свой­ства images в ниспадающем списке выберите пункт imageListi. Пример будет дос­таточно долгим, и чтобы не запутаться, не меняйте имена компонентов, данные по умолчанию.

Теперь создадим само меню. Для этого дважды щелкните по свойству items, и перед вами откроется редактор меню, как показано на рис. 9.3.

Этот же редактор можно вызвать, если дважды щелкнуть левой кнопкой мыши ПО компоненту MainMenu1.

Кругом на рис. 9.3 выделен уже созданный пункт. Перейдите в объектный ин­спектор и наберите в свойстве caption слово "Файл". Как только вы нажмете кла­вишу <Enter>, будет создано меню Файл (рис. 9.4).

Обратите внимание, что слева и под меню файл созданы два пункта без имени. Это пустые заготовки, с помощью которых вы можете расширять его. Они без име­ни и не будут отображаться в программе.

Давайте создадим еще и меню Помощь. Щелкните справа от созданного меню (в рамочке, обведенной пунктиром) и снова перейдите в объектный инспектор. Там введите в свойстве caption слово "Помощь".

Теперь создадим подпункт для меню Помощь. Щелкните в рамке чуть ниже меню Помощь. В свойстве caption введите фразу "О программе". В результате у вас должно получиться что-то похожее на рис. 9.5.

Таким же образом заполним меню Файл. Выделите его. Теперь щелкните в ра­мочке чуть ниже. Здесь мы напишем в свойстве caption слово "Открыть". Когда вы нажмете клавишу <Enter> или перейдете на другой пункт меню в редакторе, будет создан пункт Открыть и тут же немного ниже будет сформирован новый пустой пункт. Щелкните по нему и введите в свойстве caption слово "Сохранить".

Теперь снова щелкните на новом пункте меню и у него в свойстве caption про­сто введите тире "-". Это заставит Delphi создать сепаратор (разделитель меню), как показано на рис:

И, наконец, создадим последний пункт — Выход. Попробуйте его сделать само­стоятельно в меню Файл.

Теперь назначим каждому пункту меню картинки. Рассмотрим, как это сделать на примере пункта Открыть, а остальные вы сделаете сами.

Выделите пункт Открыть. Теперь в объектном ин­спекторе щелкните по ниспадающему списку свойства image index. Перед вами откроется список всех карти­нок, которые вы подключили ранее (рис. 9.7). 

Выберите ту, которая вам больше нравится. В ре­дакторе меню изображения не будет видно, зато в редакторе форм вы его сразу сможете увидеть.

Теперь создадим обработчик события, который будет вызываться всякий раз при выборе пункта меню. Для этого выберите в дизайнере меню пункт Выход и щелкните по нему дважды или перейдите на вкладку Events (События) объектно­го инспектора. После этого дважды щелкните по событию onclick. Эти действия заставят Delphi создать обработчик события при выборе пункта меню. В этом об­работчике напишем вызов метода close (). Этот метод закрывает форму, а если мы закрываем главную форму, то закроется все приложение.

Напоследок необходимо узнать, как меню подключается к форме. Когда вы по­местили новый компонент MainMenu на форму, то он автоматически появился в свойстве формы Menu. Если вы удалите название компонента из этого свойства, то меню исчезнет. Если вы укажете другой компонент меню, то в качестве меню для формы будет использоваться указанный компонент.