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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

23
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.
Листинг 3 показывает исходный текст модуля Uform11, который поддерживает
основную форму. Обратите внимание, как метод обработки события
TForm1.CloseBtnClick вызывает вторичную форму как диалоговое окно. Оператор в
строке 30 посылает ООР - сообщение ShowModal объекту Form2 (который
представляет вторичную форму). Это ООР - сообщение заставляет форму вызывать
унаследованный метод ShowModal, который отображает форму как модальное
диалоговое окно. Важно заметить, что установка свойства BorderStyle вторичной
формы в bsDialog придаёт вторичной форме вид диалогового окна. Выполнение
программы возвращается к оператору Сlose в строке 31 только после того, как Вы
закрываете вторичную форму. Закрытие вторичной формы происходит при нажатии
кнопки ОК. Строка 29 в листинге 4 содержит оператор Сlose, который закрывает
модальную диалоговую форму.
5.3 Формы как немодальные диалоговые окна
Среда Delphi позволяет создавать вторичные формы и использовать их как
немодальные диалоговые окна. Следующая программа демонстрирует эту
возможность. Программа FrmDlg2 имеет две формы: основную и вторичную, которая
действует как немодальное диалоговое окно. Основная форма имеет две кнопки с
заголовками Closе и Show Form. Когда Вы нажимаете на последнюю кнопку,
программа вызывает немодальную форму диалогового окна, которая содержит текст
“Good Bye !” и кнопку ОК. Когда Вы нажимаете на кнопку ОК, немодальная форма
закрывается. При нажатии на кнопку Close в основной форме Вы закрываете основную
форму, немодальную диалоговую форму (если она открыта) и завершаете программу.
Рассмотрим настройку каждой формы.
5.3.1 Основная форма
Как показано на рис. 12, основная форма имеет два управляющих элемента:
кнопки. Для настройки основной формы и её управляющих элементов выполните
следующие шаги:

Страницы