Разработка простого приложения Delphi

   4.   Создать программу, вычисляющую  тангенс угла. Необходимо по-

        местить в форму два компонента Tedit для ввода значения и резуль-

        тата и кнопку Tbutton для вычисления  значения тангенса. Исключить

        ввод символов вместо цифр и получение значения тангенса угла 90

        градусов. Предусмотреть возможность  ввода значений в радианах.

   5.   Создать программу, вычисляющую  логарифм числа. Для этого необ-

        ходимо поместить в форму два  компонента Tedit для ввода значения

        и результата и кнопку Tbutton для  вычисления значения логарифма.

        Исключить ввод символов вместо  цифр и получение значения  лога-

        рифма 0.

   6.   Создать программу обработки  исключения при обращении к  несу-

        ществующему элементу массива. В форму поместите поля редакти-

        рования для ввода – вывода  значений и номеров элементов  массива

        и кнопку для обработки события. 

6. Результаты  работы 

   В  результате выполнения лабораторной  работы студент должен проде-

   монстрировать  преподавателю готовый проект, содержащий  обработку

   исключительной  ситуации, файл формы и исходный  код модуля. 

ЛАБОРАТОРНАЯ  РАБОТА № 3 

                      Создание и обработка меню

1. Цель  работы

    Ознакомление с дизайнером меню Delphi и создание приложения, со-

 держащего  меню. 

2. Домашнее  задание

        Изучить 7 раздел конспекта лекций, ознакомиться с описанием и

 заданием  на лабораторную работу. 

3. Основные  понятия и приемы

   3.1. Структура меню

       Обычно меню имеет два уровня. Строка меню, которая находится под

заголовком  окна, содержит имена выпадающих меню. Каждое выпадающее

меню содержит несколько элементов. Однако структура  меню очень гибка.

Элемент меню можно поместить непосредственно  в строку меню, а выпа-

дающее  меню внутрь другого выпадающего  меню. Выпадающее меню внут-

ри другого  выпадающего меню (выпадающее меню второго уровня) встре-

чается  довольно часто, и для этого случая Windows предоставляет специаль-

ный визуальный значок – маленький треугольник справа от соответствую-

щего пункта меню. Нередко вместо выпадающего  меню второго уровня вы

можете  просто сгруппировать ряд опций  в первоначальном выпадающем

меню и  поместить два разделителя: один до группы и один после.

  3.2. Различные  роли элементов меню

   Существует  три основных типа элементов  меню:

♦ Команды  – элементы меню, которые используются для выдачи команды

   и  выполнения действия. Визуально  они никак не выделяются.

♦ Установщики  состояния – элементы меню, которые  используются для

   переключения опции в положения включено – выключено и изменения

   состояния  какого – либо элемента. Если  эти команды имеют два состоя-

   ния,  то в активном положении слева  от них обычно стоит галочка.  В этом

   случае  выбор команды изменяет состояние  на противоположное.

♦ Элементы вызова диалога – элементы меню, которые вызывают диалого-

   вою  панель. Реальное различие между  этими и другими элементами  ме-

   ню  состоит в следующем: с помощью  этих элементов пользователь  дол-

   жен  получить возможность исследовать вероятные действия соответст-

   вующей  диалоговой панели. Такие команды  должны иметь визуальный

   ключ  в виде трех точек после  текста. 

                                     23 
 

   3.3. Редактирование меню с помощью  Menu Designer

       Система Delphi включает специальный редактор для меню Menu De-

signer. Чтобы  вызвать этот инструмент, поместите  компонент меню в форму

и дважды щелкните по нему. Не волнуйтесь о точном положении данного

компонента  в форме, поскольку на результат  это не влияет: само меню все-

гда помещается правильно – под заголовком формы. Menu Designer позволя-

ет создавать  меню путем простого написания текста команд, перемещать

элементы  или выпадающие меню с помощью  буксировки и легко устанав-

ливать  свойства элементов. Для создания выпадающего меню второго уров-

ня нужно  выбрать команду Create submenu в SpeedMenu инструмента (ло-

кальном меню, которое вызывается правой кнопкой  мыши).

   3.4. Горячие клавиши меню

       Общее свойство элементов меню  – наличие подчеркнутой буквы.  Эту

букву можно  использовать для выбора меню с помощью  клавиатуры. При

одновременном нажатии клавиши Alt и клавиши с  буквой на экране появля-

ется соответствующее  выпадающее меню. Чтобы определить подчеркнутую

клавишу, просто поместите перед ней символ амперсанта (&), например,

&File. Элементам  меню можно назначить горячие  клавиши. Для этого нуж-

но указать  значение для свойства ShortCut, выбрав одну из стандартных

комбинаций.

  3.5. Изменение  элементов меню

       Для модификации элемента меню чаще всего используются три свой-

ства. Свойство Checked используется, чтобы добавить или  удалить галочку

рядом с  элементом меню. С помощью свойства Enabled элемент меню мож-

но пригасить, после чего пользователь не сможет его выбрать. Свойство

Caption представляет  текст элемента меню. Изменяя  текст элемента меню,

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

4. Порядок  выполнения работы

1. Войдите  в среду Delphi.

2. Выберите  пункт меню File/New Application, этим вы создадите новый

    проект приложения.

3. Выберите  команду File/Save Project As…

    ♦ В появившемся диалоге перейдите  к корневому каталогу диска  C,

       выбрав соответствующий пункт  в выпадающем списке вверху  окна.

    ♦ Откройте папку, соответствующую названию вашей группы (напри-

       мер, Р-123). Если такой нет, то  создайте её, кликнув правой кнопкой

       мыши на свободном месте, выбрав  из появившегося контекстного

       меню пункт Создать/папку и  введя нужное название (после  чего не 

                                     24 
 

         забудьте её открыть).

     ♦   Создайте (как описано в  предыдущем пункте) папку "Ваша_фамилия

         Lab3".

     ♦   Сохраните Unit1.pas под новым  именем Main.pas, а Project1.dpr под

         новым именем Lab3.dpr.

     ♦   Создайте проект согласно  Вашему индивидуальному заданию.  Под-

         робное описание разработки меню  приведено в индивидуальном за-

         дании 1. 

5. Варианты  индивидуальных заданий 

   Вариант  1

1. Выберите  в палитре компонентов Delphi вкладку Standard (это самая пер-

   вая  вкладка и обычно она уже  выбрана автоматически).

2. Выберите  компонент MainMenu и поместите его  на форму. 
 
 
 

                        Рис. 3.1. Дизайнер меню

3. Откройте Menu Designer дважды кликнув на компоненте MainMenu в

   форме.  Окно дизайнера меню представлено  на рис. 3.1.

4. Создайте  меню следующей структуры:

   ♦  File: Exit

   ♦ Options: Font, Color, (разделитель), Left, Center, Right, (разделитель),

      Height

   ♦  Help: About

                                       25 
 

   Меню  должно быть похоже на представленное  на рис. 3.2.

Названия  пунктов меню вводятся в поле Caption, для создания разделителя в

            поле Caption вводится символ "-" (минус,  он же дефис) 
 
 
 

                             Рис. 3.2. Пример меню

5.   Для Left, Center и Hight назначьте горячие  клавиши (свойство ShortCut)

6.   В форму поместите компонент  RichEdit из палитры Win32 и две пикто-

     граммы диалогов:

     FontDialog и ColorDialog из палитры Dialogs.

7.   Для отклика на команды меню вы должны определить метод для события

     OnClick каждого элемента меню, как  показано на рис. 3.3. 
 
 
 

                     Рис. 3.3. Выбор метода OnClick

8.   Код метода TForm1.Font1Click: 

     procedure TForm1.Font1Click (Sender : TObject) ;

     begin

      FontDialog1.Font : = RichEdit1.Font ;

                                      26 
 

      FontDialog1.Execute;

      RichEdit1.Font : = FontDialog1.Font ;

     end; 

9.  Код  метода TForm1.Color1Click очень похож на  приведённый выше. На-

    пишите его сами.

10. Код метода TForm1.Left1Click: 

     procedure TForm1.Left1Click (Sender : TObject) ;

     begin

      RichEdit1.Paragraph.Alignment : = taLeftJustify ;

      Left1.Checked : = True ;

      Center1.Checked : = False ;

      Right1.Checked : = False ;

     end; 

    Чтобы поставить галочку в  ряде выбираемых опций, установите  свойст-

 во Checked элемента меню в True, как показано  на рис. 3.4. 
 
 
 

                    Рис. 3.4. Параметры инспектора объектов