ВУЗ:
Составители:
Рубрика:
29
34: end.
________________________________________________________________________
Листинг 8. Исходный текст модуля UDLG12.PAS.
________________________________________________________________________
1: unit Udlg12;
2:
3: interface
4:
5: uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Buttons,
6: StdCtrls, ExtCtrls;
7:
8: type
9: TOKBottomDlg = class(TForm)
10: OKBtn: TBtn;
11: CancelBtn: TBtn;
12: Bevel1: TBevel;
13: ByeLbl: TLabel;
14: procedure OKBtnClick(Sender: TObject);
15: procedure CancelBtnClick(Sender: TObject);
16: private
17: { Private declarations }
18: public
19: { Public declarations }
20: end;
21:
22: var
23: OKBottomDlg: TOKBottomDlg;
24:
25: implementation
26:
27: {$R *.DFM}
28:
29: procedure TOKBottomDlg.OKBtnClick(Sender: TObject);
30: begin
31: ModalResult:=mrOK;
32: end;
33:
34: procedure TOKBottomDlg.CancelBtnClick(Sender: TObject);
35: begin
36: ModalResult:=mrCancel;
37: end;
38:
39: end.
________________________________________________________________________
Листинг 7 показывает исходный текст модуля Udlg11, который поддерживает
основную форму. Обратите внимание на то, как обрабатывающий событие метод
TForm1.CloseBtnClick вызывает диалоговое окно в операторе на 30 строке. Этот
оператор посылает ООР - сообщение ShowModal объекту OKBottomDlg (который
