Меню программы на Delphi

DELPHI - 8

Вопросы:
1. Создание меню программы
2. Создание панели статуса
3. Использование диалогов

Система раскрывающихся меню стала своеобразным стандартом программ и является очень удобной для доступа к всем функциям программы

Рассмотрим создание такого меню:

ШАГ 1

Поместим на нашу форму компонент Main Menu

ШАГ 2

Щелкнув правой по Main Menu, выберем в контекстном меню раздел Дизайнер меню – раздел, с помощью которого мы и сформируем нужное нам меню

Сначала давайте определимся, что мы хотим иметь.
Пусть меню содержит 3 раздела:
Файл (с опциями Создать, открыть, сохранить)
Правка (с опциями копировать, вырезать, вставить)
Справка (с опциями о программе, помощь)

Печатаем слово Файл и нажимаем Enter

Печатаем Создать и снова Enter, и так же открыть и сохранить

Для того чтобы создать разделяющую полосу, группирующую сходные функции, напечатаем знак «-» (минус и тоже Enter)

И так же Выход. (Наименование опций соответствует свойству Caption в инспекторе объектов)

Часто раскрывающие опции имеют маленькие пиктограммы для пояснения функции данной опции
Рассмотрим, как их сделать, например для опции Помощь раздела Справка

В результате мы получили систему раскрывающихся меню

Посмотреть ->

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

В нашей программе с меню уже создана панель статуса (точнее полоса состояния, состоящая из нескольких панелей (из четырех))

Компонент StatusBar находится на вкладке Win 32

Это первая панель полосы состояния (StatusBar.Panel[0]) – нумерация панелей начинается с нуля !

Основное свойство панели – отображаемый в ней текст, например StatusBar.Panel[1].Text:=‘Время’; означает, что во второй панели будет выведен текст ‘Время’

Посмотрите в инспекторе объектов другие свойства StatusBar

ШАГ 1

Помещаем на форму компонент StatusBar

В инспекторе объектов раскрываем свойство Status Bar-a Panels

В редакторе панелей добавляем 2 панели, нажимая на пиктограмму добавления панели

ШАГ 1

Помещаем на форму компонент StatusBar

В свойстве первой панели Text (Panel 0) пишем текст «Время работы с программой»
В свойстве Width (ширина панели) поставим нужную ширину для отображения этого текста (этот текст влазит в 200 пк)

ШАГ 1

Помещаем на форму компонент StatusBar

Для второй панели (Panel 1) писать ничего не будем, потому что в ней будет идти время, поэтому сделаем это программно с использованием элемента Таймер

При выводе в вторую панель времени работы программы нам придется использовать две переменные типа Дата/Время (TDateTime) – есть такой тип данных в Delphi, как и других системах разработки:
В первой переменной (обозначим ее S) – будет храниться время (системное время нашего компьютера) в момент старта программы и изменяться оно при работе программы не будет
Во второй переменной (обозначим ее d) – будет храниться текущее время компьютера, которое будет считываться по таймеру каждую секунду с времени операционной системы

А во второй панели (Panel 1) мы будем выводить разницу d и s, которую преобразуем из типа Дата/Время к строковому типу, соответствующему свойству Text в панели – получится время работы с программой, идущее с нуля

В процедуре создания формы (запуска приложения) присвоим s текущее время (зафиксируем момент времени)

Во второй панели выводим разницу идущего времени (d) и стоящего на месте (s), преобразуя эту разницу из формата времени (Time) в формат строки (string)

При создании программного кода нам часто приходится использовать различные типы данных. Также часто приходится делать преобразование типов из одних в другие. Поэтому удобно иметь под рукой справочник по работе с различными типами данных, строками, файлами, памятью – все это есть в прилагаемом к курсу справочнике «Типы данных в Delphi»

Запускаем ->

Сейчас мы научимся создавать такие диалоговые окна
Надо сказать, что здесь мы будем использовать функции самой операционной системы Windows (WinApi)
Однако в Delphi существует большой набор компонент, реализующих стандартные функции открытия (файла), сохранения, поиска ... но с ними мы познакомимся на следующем уроке при создании собственного текстового редактора

Самый простой способ – использование процедуры ShowMessage (показать сообщение)
Формат записи:
procedure ShowMessage(const Msg: String) – здесь const – выражение строкового типа, которое будет «выдано» в сообщении (и конечно оно записывается в апострофах). Этот способ не только самый простой, но и функционально ограниченный, т.к. в окне диалога есть только кнопка ОК, которая закрывает окно и больше никаких функций

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

1 способ (ShowMessage)

Запустите программу и попробуйте:
Ввести в Edit любого коэффициента не цифру, а букву
Нажать кнопку НАЙТИ, не введя все коэффициенты

Запустить ->
при ошибочном введении буквы вместо цифры

при нажатии кнопки НАЙТИ, если не все коэффициенты введены

Мы видим, что выходят сообщения

Здесь мы использовали событие Edit1.KeyPress (нажатие клавиши, когда фокус ввода имеет Edit1) – находим его в инспекторе объектов
А дальше понятно:
Делаем проверку условия
Если нажата клавиша, соответствующая одной из множества русских или латинских букв, то ничего не вводим (Key:=#0 – вспомните кодовую таблицу ASCII) и выдаем сообщение, что надо ввести цифру

Здесь при нажатии кнопки НАЙТИ проверяется, а не является один из Edit-ов для ввода коэффициентов «пустым»
Если ДА, то напоминаем о необходимости ввести все коэффициенты
ИНАЧЕ следует алгоритм расчета корней уравнения ...

Здесь:
const Msg: String – это текст нашего сообщения
DlgType: TMsgDlgType –это вид диалогового окна

Buttons - кнопки диалогового окна: mbYes, mbNo, MbCancel, mbRetry, mbAbort, mbOk, mbIgnore, mbHelp, mbAll, mbYesToAll, mbNoToAll - словом, все, какие ни есть и даже готовые комбинации: mbYesNoCancel, mbOKCancel, mbYesAllNoAllCancel, mbAbortRetryIgnore, bmAbortIgnore.

HelpCtx: integer – ставьте ноль

Запустите программу и попробуйте:
Нажать на кнопку ОЧИСТИТЬ

Запустить ->

В результате мы видим сообщение более функциональное

В сообщении присутствует значок для привлечения внимания и уже две кнопки, дающие возможность выбора
Недостаток: кнопки не русифицированы

Здесь мы выбрали 2 кнопки: ОК и Cancel

Ноль означает отказ от справки

В этом алгоритме мы используем case – выбор (вспомните Паскаль)

Если нажата кнопка Cancel, закрываем диалог

3 способ (MessageBox)

Здесь:
Parent: HWnd– "хозяин" (окно, владеющее сообщением)
Txt - 'текст сообщения'
Caption – заголовок диалогового окна
TextType – параметр, определяющий вид иконки в окне и какие в нем будут кнопки, например (некоторые из вариантов):

Запустите программу и попробуйте:
Нажать на кнопку ВЫХОД

Запустить ->

В результате мы видим сообщение с русскими кнопками – это удобнее

Это текст нашего сообщения

Это заголовок диалогового окна

Это параметр, указывающий, что в окне 2 кнопки (ДА и НЕТ) и иконка предупреждения

Если выбрана кнопка НЕТ (no), диалог прерывается

И на этом мы закончим знакомство с диалогами

ИТОГИ УРОКА:

ООП на Delphi – 9:
Мы познакомимся с стандартными диалогами и создадим свой текстовый редактор

НА СЛЕДУЮЩЕМ УРОКЕ: