Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лабник по Delphi.pdf
Скачиваний:
48
Добавлен:
01.06.2015
Размер:
1.09 Mб
Скачать

20 –

else – части, если она присутствует. По завершении выполнения найденного оператора управление передается за пределы защищенного блока.

Частым и распространенным случаем защищенного блока является блок, реализующий реакцию на любые виды исключений:

try

ПоследовательностьЗащищаемыхОператоров except

ОператорыОбработкиИсключений

end;

Модальные окна

Окно называется модальным, если после его активизации блокируется любая попытка перехода в другие окна вплоть до закрытия этого окна. Модальные окна используются в случаях, когда пользователь должен обязательно произвести какой-либо выбор или установить какие-либо параметры. Примером модального окна является запрос на подтверждение выбранных действий (запись в файл, выход из программы и т.п.).

Для использования модального окна необходимо выполнить следующее.

Создать новую форму (File+New form), разместить на ней интерфейсные компоненты, а в качестве кнопок выбора использовать кнопки BitBtn.

В свойстве Kind кнопок BitBtn устанавливаем один из предопределенных типов кнопок – bkOk, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll.

Данный выбор обеспечивает во-первых, размещение на кнопке стандартного текста и рисунка, а, во-вторых, эффект автоматического закрытия модального окна данной кнопкой без какого-либо дополнительного программного кода.

Вызов модальной формы реализуется методом ShowModal:

ИмяМодальнойФормы.ShowModal;

Этот метод является функцией, возвращающей результат модальной формы, соответст-

вующий типу нажатой в ней кнопки- mrOk, mrCancel, mrHelp, mrYes, mrNo, mrClose, mrAbort, mrRetry, mrIgnore, mrAll.

В модуле формы, которая вызывает модальную форму, в разделе подключения модулей Uses добавить имя модуля модальной формы.

Пример выполнения

Задание

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

a +6

a2 +1

Дано вещественное число a>0. Вычислить выражение

 

 

 

 

1 +7 3 +a

 

 

 

 

 

 

 

Корни

y = k

x

вычислить с точностью e=0.0001

по

итерационной формуле:

 

 

x

 

y

n

 

 

 

 

 

y0 =1, yn+1

= yn +

ynk 1

,n = 0,1,2...

 

 

 

 

 

 

 

k

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Главная форма приложения

Главная форма проекта изображена на рис.7.

Калачев Д.П., Лутай В,Н,. Скороход С.В. Delphi. Лабораторные работы.