Принципы визуального программирования. Семенов Н.М. - 26 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

26
3: interface
4:
5: uses
6: SysUtils, Windows, Variant, Messages, Classes, Graphics, Controls,
7: Forms, Dialogs, StdCtrls;
8:
9: type
10: TForm2 = class(TForm)
11: OKBtn: TButton;
12: ByeLbl: TLabel;
13: procedure OKBtnClick(Sender: TObject);
14: private
15: { Private declarations }
16: public
17: { Public declarations }
18: end;
19:
20: var
21: Form2: TForm2;
22:
23: implementation
24:
25: {$R *.DFM}
26:
27: procedure TForm2.OKBtnClick(Sender: TObject);
28: begin
29: Close;
30: end;
31:
32: end.
__________________________________________________________________________
Листинг 5 показывает исходный текст для модуля Uform21, который
поддерживает основную форму. Обратите внимание на то, каким образом
обрабатывающий событие метод TForm1.CloseBtnClick вызывает вторичную форму как
диалоговое окно. Оператор в строке 32 посылает ООР - сообщение Show объекту
Form2, который представляет вторичную форму. Это ООР - сообщение заставляет
форму вызывать унаследованный метод Show, который отображает форму как
немодальное диалоговое окно. Снова установка свойства BorderStyle вторичной формы
в значение bsDialog придаёт вторичной форме вид диалогового окна. Строка 37
содержит оператор Close в отдельном обрабатывающем событие методе. Если бы
строка 32 сопровождалась оператором Close, приложение выдало бы немодальную
форму диалогового окна и затем быстро закрыло бы эту форму наряду с основной
формой. Строка 29 в листинге 6 содержит оператор Close, который закрывает форму
немодального диалогового окна.
5.4 Модальные диалоговые окна
Delphi предлагает классы, которые поддерживают диалоговые окна. Рассмотрим,
как форма вызывает модальное диалоговое окно, поддерживаемое классом диалогового
окна. Следующая программа показывает вызов такого диалогового окна. Программа
Dlg1 имеет две формы: основную и форму диалогового окна, которая действует как

Страницы