Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 52 стр.

                                   53

                 Лабораторная работа № 6
      ДИАЛОГОВЫЕ ОКНА В ПРОГРАММАХ TURBO VISION

      Цель: Получить практические навыки использования диалоговых
окон в TV-программе.

       Основное содержание работы.
       Написать программу, создающую объекты пользовательского класса
и помещающую их в линейный список. Предусмотреть диалог для ввода
исходных данных, просмотра объектов, их корректировки и сохранения
данных в файле.
       Краткие теоретические сведения.
       Все программы в среде Turbo Vision рассчитаны на диалоговый спо-
соб взаимодействия с пользователем. Точка ветвления, управляемая ко-
мандой пользователя, называется точкой диалога. В точке диалога создает-
ся активный видимый элемент, который называется модальным элементом.
Примером модального элемента является диалоговое окно. Когда в про-
грамме создается и активизируется модальный элемент, только этот эле-
мент и его подэлементы могут взаимодействовать с пользователем. Ис-
ключением являются только командные клавиши и соответствующие поля
для мыши, определенные в строке статуса. Эти поля всегда доступны
пользователю и нажатие на них обрабатывается модальным элементом так
же как, как если бы они были определены в нем.
       Диалоговое окно - это специальный тип окна. Класс TDialog порож-
ден от TWindow и предназначен для реализации взаимодействия с пользо-
вателем. Его обработчик событий генерирует команду cmCancel в ответ на
нажатие клавиши Esc и команду cmDefault в ответ на нажатие клавиши En-
ter, а также обрабатывает cmOk, cmCancel, cmYes и cmNo, завершая мо-
дальное состояние диалогового окна.
       Существует несколько отличий между диалоговым окном и другими
окнами:
       1. Цвет диалогового окна по умолчанию серый вместо синего.
       2. Диалоговое окно не может изменять размер.
       3. Диалоговое окно не имеет номера.

    •     Создание диалогового окна. Для создания диалогового окна
можно определить специальный тип:
    PDialogWin=^TDialogWin;
    TDialogWin=object(TDialog)
    Constructor Init(var R:TRect;ATitle:TTitleStr);
    end;