2) Последовательность действий по программированию событий

1. Для того, чтобы из формы 1 можно было вызывать форму 2, в блок Uses модуля Unit1 включите модуль Unit2:

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,unit2;

2. Для события OnClick кнопки Buttton1 (форма1) напишите следующий программный код:

procedure Tform1.Button1Click(Sender: Tobject);

begin

// Вывод на экран формы Form2

Form2.Show;

end;

3. Для демонстрации правила c) (см. указания к выполнению работы) выполните следующие действия:

• В раздел public модуля Unit2 введите переменную S:

public

s:String;

• Для события OnChange компонента Edit1 (модуль Unit2) введите следующий программный код:

procedure Tform2.Edit1Change(Sender: Tobject);

begin

// любые изменения в окне ввода Edit1 запоминаются в переменной S

s:=Edit1.Text;

end;

• Для события OnClick кнопки Button2 «Получить содержимое переменной S из модуля 2» (модуль Unit1) введите программный код:

procedure Tform1.Button2Click(Sender: Tobject);

begin

Edit1.Text:=Form2.s;

end;

4. Для демонстрации правила d) выполните следующие действия:

• В разделе interface модуля Unit2 определите глобальную переменную P:

var

Form2: Tform2;

p:String;

• Для события OnChange компонента Edit2 (модуль Unit2) введите программный код:

procedure Tform2.Edit2Change(Sender: Tobject);

begin

// любые изменения в окне ввода Edit2 запоминаются в переменной P

P:=Edit2.Text;

end;

• Для события OnClick кнопки Button3 «Получить содержимое глобальной переменной P из модуля 2» (модуль Unit1) введите программный код:

procedure Tform1.Button3Click(Sender: Tobject);

begin

Edit2.Text:=P;

end;

5. Часто необходимо какую-либо переменную из главной формы использовать в подчиненной форме (В данном случае: переменную, определенную в модуле Unit1, использовать в модуле Unit2). Для реализации данной проблемы и демонстрации правила f) выполните действия:

6. В разделе interface модуля Unit1 определите глобальную переменную Q:

var

Form1: Tform1;

Q:String;

7. Для события OnChange компонента Edit3 (модуль Unit1) введите программный код:

procedure Tform1.Edit3Change(Sender: Tobject);

begin

Q:=Edit3.Text;

end;

8. В разделе implementation модуля Unit2 подключите модуль Unit1:

implementation

{$R *.dfm}

Uses Unit1;

Для события OnClick кнопки Button1 «Вывод глобальной переменной Q» (модуль Unit2) введите программный код:

9. procedure Tform2.Button1Click(Sender: Tobject);

begin

Edit3.Text:=Q;

end;

10. Откомпилируйте приложение и проверьте его работу

ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ

Проверьте выполнение правил a), b), e), g).

КОНТРОЛЬНЫЕ ВОПРОСЫ

1. Методы создания приложений с несколькими формами в Delphi

2. Методы работы с глобальными переменными

3. Методы передачи параметров.