Лабораторная работа №4

ГЛАВНОЕ МЕНЮ ФОРМЫ. ВСПОМОГАТЕЛЬНОЕ МЕНЮ. СТАНДАРТНЫЕ КНОПКИ. ВИЗУАЛЬНЫЕ КОМПОНЕНТЫ СТАНДАРТНЫХ ДИАЛОГОВ WINDOWS – ИНТЕРФЕЙСА.

Теоретические сведения

Любое современное приложение имеет меню. Меню обеспечивает стандартный и удобный доступ к функциям приложения и структурирует их в однородные группы. Главное меню формы определяет компонент класса TMainMenu. На форму можно поместить сколько угодно объектов этого класса, но отображаться в полосе меню в верхней части формы будет только тот из них, который указан в свойстве Menu формы.

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

Вызов диалоговой формы во время работы приложения осуществляется методом Execute, возвращающим результат логического типа. Если пользователь, например, выбрал файл и нажал кнопку ОК, то функция возвращает True.

Для того чтобы добавить в проект другие файлы, нужно осуществить следующие действия Project\Add to Project (Shift+F11).

Ход работы

1. Загрузите систему визуального программирования Delphi.

2. Поместите компонент Panel1 на форму, задайте его свойству Align значение AlClient. Свойству Caption и Name формы придайте значение Lab4. Сохраните вашу программу в папку Lab4 под индексом 4 (Unit4 и Project4).

3. Компонент Image.

Установите на форму компонент ТImage (страница Additional). Установите фиксацию компонента по всем четырем сторонам панели с помощью свойств Anchors. Свойство Picture служит контейнером изображения. В инспекторе объектов в правой части строки этого свойства вызывается диалоговая панель графического файла. Выберите понравившуюся Вам картинку из подкаталога Images/Splash. Свойству Stretch присвойте значение True. Это свойство разрешает/запрещает изменять размер изображения так, чтобы оно в целом заполнило клиентскую область компонента.

4. Главное меню формы.

Для компонента TMainMenu вызовите Menu Designer, щелкнув по кнопке в правой половине строки Items инспектора объектов. Создайте опции меню, аналогичные надписи на кнопках Button формы. Текст опции вводится в строке Caption окна инспектора объектов. Опции меню разделите чертой, для чего назовите очередной элемент меню именем «-».

Главное меню формы должно иметь вид:

Режим работы Выход

Лаб. раб. №2

Лаб. раб. №3

5. Шаблон формы.

Свойству Name пунктов меню задайте значения: «аааааа0»(Режим работы); «аааааа1»(Лаб.раб.№2); «аааааа2»(Лаб.раб.№3). Для пункта меню Выход свойству Name задайте значение «аааааа3». Это необходимо сделать для того, чтобы воспользоваться уже имеющимся обработчиком события Button1Click.

В обработчик события внесите дополнения (дополнения подчеркнуты):

procedure Tlab4.aaaaaa1Click (Sender: TObject);

var b:byte; a:string[8];

begin

a:= (Sender As TComponent).Name;

b:= StrToInt(Copy(a,7,1));

case b of

1: begin

if lab2 = Nil then lab2:= Tlab2.Create(Self);

lab2.Show;

end;

2: begin

if lab3 = Nil then lab3:= Tlab3.Create(Self);

lab3.Show;

end;

3: lab4.Close;

end; end;

Всем пунктам меню придайте функциональность (назначьте процедуру aaaaaa1Click для aaaaaa2Click и aaaaaa3Click).