Лабораторная работа № 3 Проект с несколькими формами
Цель работы:
изучение основных принципов организации пользовательского объектно-ориентированного интерфейса;
получение навыков структурирования задачи;
освоение приемов разработки приложения, использующего несколько форм.
Сложное приложение обычно содержит несколько форм. По умолчанию все формы создаются автоматически и первая из создаваемых форм считается главной. Ей передается управление в начале выполнения приложения. Закрытие главной формы вызывает завершение выполнения приложения.
Для создания приложения с двумя формами необходимы следующие действия:
Создать папку проекта.
Вызвать команду File/New/Application/OK
Появится окно Form1 (главная форма).
Вызвать команду File/Save Project As…
Появится диалоговое окно со строкой: File name unit.pas.
Выбрать имя модуля, например, UF1 и сохранить его в созданной папке.
В диалоговом окне появится строка: File name project.dpr
Выбрать имя проекта, например, MyProject1.dpr и сохранить его в созданной папке.
Создать вторую форму и присоединить ее к проекту.
Вызвать команду File|New|Form/
Появится окно Form2.
Вызвать команду File/Save Project As…
Появится окно со строкой: File name unit2.pas.
Выбрать имя модуля, например UF2 и сохранить его в папке проекта. С помощью команды Add to Project присоединить форму Form2 к проекту.
Сохранить файл File|Save All.
Если Form1 выполняет действия с Form2, а Form2 выполняет действия с Form1, надо организовать их взаимодействие (взаимосвязь) с помощью оператора uses.
Активизировать сначала форму Form1 или модуль UF1. Выбрать команду File/Use unit. Появится диалоговое окно UseUnit (выбор модуля). В нем выбрать имя модуля UF2 и нажать кнопку ОК. После этого в модуле UF1 появится в разделе Implementation оператор uses UF2. Выполнить аналогичные действия для присоединения модуля UF1 и UF2.
Замечание:
операторы uses UF1, uses UF2 можно написать вручную.
Сохранить добавленные действия в UF1 и UF2.
Просмотреть созданный проект.
program MyProject1;
Unit UF1;
Unit UF2;
program MyProject1;
uses Forms, Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2}; {$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
unit UF1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm)
Private { Private declarations }
Public { Public declarations } end;
Var Form1: TForm1;
implementation
uses UF2;
{$R *.DFM}
end.
unit UF2;
interface
uses Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm2 = class(TForm)
private { Private declarations }
public { Public declarations }
end;
var Form2: TForm2;
implementation
uses UF1; {$R *.DFM}
end.
Пример 3. Калькулятор
Постановка задачи: Создать приложение, выполняющие сложение (S), вычитание (R), умножение (P) значений переменных X и Y, вводимых пользователем.
Вид Form1 с компонентами:
Вид Form2 с компонентами:
После создания вышеприведенных форм, необходимо выполнить следующие действия:
В модуле Unit1 раздела Interface в описании переменных (раздел var…) добавить cтроку: X, Y, S, R, P : real;
Написать тексты процедур обработки щелчков на кнопках для форм.