1.Создать отдельную папку для сохранения всех файлов данной работы, например, LR_forms.
2. Запустить среду программирования Lazarus и
3. Создать новый проект.
4. Сохранить в созданную папку главный модуль под именем Main Unit.pas (вместо предлагаемого Lazarus имени Unit 1.pas), а проект под именем LR_forms.dpr (вместо Projectl.dpr).
5. Заполнить главную форму необходимыми компонентами в соответствии с рисунком 1. В таблице 1 кратко приведен список свойств различных компонентов главной формы, требующих установок.
| Таблица 1. Значения основных устанавливаемых свойств компонентов главной формы
|
| Свойство
| Значение
| Комментарий
|
| MainForm: TMainForm
|
| Name
| MainForm
| Имя переменной для ссылки на форму
|
| Caption
| Калькулятор
| Заголовок формы
|
| BorderStyle
| bsDialog
| Запрещается растяжение формы
|
| Label1: TLabel
|
| Caption
| 1-е число:
| Комментарий к 1-му введенному числу
|
| Label2: TLabel
|
| Caption
| 2-е число:
| Комментарий ко 2-му введенному числу
|
| Label3: TLabel
|
| Caption
| Сумма:
| Комментарий к выводимому значению
|
| Label4: TLabel
|
| Caption
| Произведение:
| Комментарий к выводимому значению
|
| Label5:TLabel
|
| Name
| LabelCh1
| |
| Caption
|
| Значение суммы по умолчанию
|
| Label6:TLabel
|
| Name
| LabelCh2
| |
| Caption
|
| Значение суммы по умолчанию
|
| Label7:TLabel
|
| Name
| LabelSum
| |
| Caption
|
| Значение суммы по умолчанию
|
| Labe8: TLabel
|
| Name
| LabelPr
| |
| Caption
|
| Значение произведения по умолчанию
|
| Button1: TButton
|
| Name
| Buttonlnput
| |
| Caption
| Ввод чисел...
| Текст на кнопке
|
| Button2: TButton
|
| Name
| ButtonExit
| |
| Caption
| Выход
| Текст на кнопке
|
| Cancel
| True
| Указывается, что нажатие клавиши Esc в любом месте формы трактовалось как нажатие на эту кнопку
|
Теперь создадим вторую (вспомогательную) форму для ввода двух чисел.
6 Создание второй (вспомогательной) формы. Выбрать в меню команду Файл/Создать форму. В результате будет создана новая форма с соответствующим программным модулем.
7 Сохранить модуль (командой Файл/Сохранить как) в рабочем каталоге LК_forms в файл Input.pas.
8 Установить на второй форме компоненты в соответствии с рисунком и задать для них значения свойств в соответствии с таблицей 2.
| Таблица 2. Значения основных устанавливаемых свойств компонентов второй формы
|
| Свойство
| Значение
| Комментарий
|
| InputForm: TInputForm
|
| Name
| InputForm
| Имя переменной для ссылки на форму
|
| Caption
| Ввод чисел
| Заголовок формы
|
| BorderStyle
| bsDialog
| Запрещается растяжение формы
|
| Labell: TLabel
|
| Caption
| 1-е число:
| Приглашение для ввода 1-го числа
|
| Label2: TLabel
|
| Caption
| 2-е число:
| Приглашение для ввода 2-го числа
|
| Edit1, Edit2: TEdit
|
| Text
|
| Вводимые значения по умолчанию
|
| ButtonCancel: TButton
|
| Caption
| Вернуться
| Текст на кнопке
|
| Cancel
| True
| Указывается, что нажатие клавиши Esc в любом месте формы трактуется как нажатие на эту кнопку
|
| ModalResult
| mrCancel
| Указывается, что при нажатии на эту кнопку форма закрывается с возвратом указанного значения в одноименном свойстве формы ModalResult
|
После того как обе формы спроектированы, необходимо написать соответствующие обработчики событий для связи форм друг с другом.
9. Необходимо открыть модуль MainUnit.pas, перйти в окно программного кода и в секции implementation ввести строку «uses Input;».
10. Создайте обработчик события ButtonInputClick формы MainForm.
11. Создайте обработчик события ButtonExitClick формы MainForm.
12. Создайте обработчики события Edit1.Enter и Edit2.Enter (событие: получение фокуса компонентом). В результате обработки этого события очищаем поле для ввода чисел.
13. Создайте обработчик события кнопки «Вернуться» формы InputForm
