ВУЗ:
Составители:
Рубрика:
28
5.4.3. Добавление методов обработки события
В форму диалогового окна и основную форму надо добавить обрабатывающие
событие методы для управления кнопками. Каждая кнопка должна обрабатывать
событие нажатия мыши. Листинг 7 показывает исходный текст для модуля
UDLG11.PAS. Выделенные строки показывают код, вставленный вручную. Обратите
внимание, что оператор uses включает имя модуля Udlg12. Это объявление
необходимо, чтобы дать возможность основной форме выдать форму диалогового окна,
обращаясь к переменной OKBottomDlg. Эта переменная, экспортируемая модулем
Udlg12, является образцом класса TOKBottomDlg и поддерживает форму диалогового
окна. Листинг 8 показывает исходный текст для модуля UDLG12.PAS. Выделенные
строки содержат операторы, которые Вы должны вставить для методов
TOKBottomDlg.OKBtnClick и TOKBottomDlg.CancelBtnClick
Листинг 7. Исходный текст для модуля UDLG11.PAS.
________________________________________________________________________
1: unit Udlg11;
2:
3: interface
4:
5: uses
6: SysUtils, Windows, Variants, Messages, Classes, Graphics, Controls,
7: Forms, Dialogs, StdCtrls,
8: {manualy inserted unit name}
9: Udlg12;
10:
11: type
12: TForm1 = class(TForm)
13: CloseBtn: TButton;
14: procedure CloseBtnClick(Sender: TObject);
15: private
16: { Private declarations }
17: public
18: { Public declarations }
19: end;
20:
21: var
22: Form1: TForm1;
23:
24: implementation
25:
26: {$R *.DFM}
27:
28: procedure TForm1.CloseBtnClick(Sender: TObject);
29: begin
30: if OKBottomDlg.ShowModal = mrOK then
31: Close;
32: end;
33:
