Компонент TMainMenu предназначен для добавления к программе главного меню, без которого не обходится практически ни одно из приложений Windows.
Чтобы добавить меню, надо выбрать на панели компонентов Standart (Стандартные) компонент TMainMenu и поместить его на форме в произвольном месте.
Компонент TMainMenu невизуальный, в отличии от визуальных компонентов TEdit и TLabel, в точности соответствующих своему внешнему виду в работающей программе.
Это означает, что хотя он виден на форме как небольшой значок, в окне созданной программы в таком виде он не появится. Представление его на форме в миниатюрном виде просто указывает на наличие в программе объекта, ответственного за меню.
Пункты меню содержатся в свойстве Items. Чтобы начать формирование пунктов меню достаточно дважды щелкнуть по компоненту на форме или нажать на кнопку с многоточием в свойстве Items компонента в окне Свойства. Откроется специальный редактор меню.
Рассмотрим применение нового компанента на конкретном примере.
Практическая работа
Задание. Добавить главное меню в созданное Вами ранее приложение Калькулятор. В горизонтальное меню включить названия арифметических действий: «Сложить» и «Разделить».
Ход выполнения проекта
1. Откройте в среде программирования Lazarus проект Калькулятор, созданный в 5 уроке.
2. Поместите компонент MainMenu на форму.
3. Чтобы начать формирование пунктов меню дважды щелкнуть по компоненту TMainMenu1 на форме или нажмите на кнопку с многоточием в свойстве Items компонента в инспекторе объектов.
На форме в горизонтальном меню появиться первый пункт, который по умолчанию имеет имя New Item1 (Новый Элемент1). Откроется специальное окно редактора меню.
4. В инспекторе объектов в свойство Caption введите имя первого пункта меню Сложить.
5. Чтобы создать следующий пункт меню, установите курсор на текущий элемент меню и откройте контекстное меню правым щелчком. Выберите “Вставить новый пункт (после)”.
На форме отобразится следующий пункт горизонтального меню.
6. В инспекторе объектов в свойство Caption введите название второго пункта меню: Разделить.
7. Теперь осталось написать программный код, который будет выполняться при выборе пунктов меню.
Напишем общую для всех пунктов меню процедуру Znak, параметром которой будет символ арифметической операции «+» или «/». Процедура будет получить числовые значения из полей EditNum1 и EditNum2, производить указанную в качестве параметра операцию и выводить полученный результат в поле EditResult.
Текст процедуры нужно поместить в раздел Implementation после директивы {$R *.lfm}.
procedure Znak(zn:char);
label metka;
var result, num1, num2:real;
begin
num1:=StrToFloat(form1.editNum1.text);
num2:=StrToFloat(form1.editNum2.text);
case zn of
'+': result:=num1 + num2;
'/': if num2<> 0 then result:=num1/num2;
else
begin
showMessage('Делить на 0 нельзя!');
form1.editNum2.text := '';
form1.editNum2.SetFocus;
form1.editResult.text := '';
goto metka;
end;
end; // casse
form1.EditResult.Text := FloatToStr(Result);
metka:
end;
8. Напишем обработчик для пункта меню Сложить. Для этого дважды щелкните на данном пункте меню.
Программный код будет иметь следующий вид:
procedure TForm1.MenuItem1Click(Sender: TObject);
begin
znak('+');
end;
В программном коде вызывается написанная нами процедура Znak, в которой в качестве фактического параметра передается знак арифметического действия.
9. Напишем обработчик для пункта меню Разделить.
procedure TForm1.MenuItem1Click(Sender: TObject);
begin
znak('/');
end;
10. Проект готов. Проверьте работу приложения. Для этого введите произвольные числа в поля ввода, выберите в горизонтальном меню нужное действие, проверьте результат.
| 