TDialog Dialogs
+---------+ | TObject | +----+----+ +----+----+ | TView | +----+----+ +----+----+ | TGroup | +-+--+--+-+ +----------+ | +------------+ +----+----+ +----+-----+ +------+-------+ | TWindow | | TDeskTop | | TProgram | +----+----+ +----------+ +------+-------+ +====+====+ +------+-------+ | TDialog | | TApplication | +=========+ +--------------+
TDialog - это потомок TWindow со следующими свойствами: - GrowMode - 0, т.е. диалоговые окна не увеличиваются. - Флаги wfMove и wfClose установлены, т.е. диалоговые окна можно перемещать и закрывать (предоставлена закрывающая кнопка). - Обработчик событий TDialog вызывает TWindow.HandleEvent и дополнительно обрабатывает отклики на клавиши Esc и Enter. Клавиша Esc генерирует команду cmCancel, а Enter генерирует команду cmDefault. - TDialog.Valid возвращает True на команду cmCancel, иначе вызывает TGroup.Valid.
Методы
Init constructor Init(var Bounds: TRect; ATitle: TTitleStr); Создает диалоговое окно с заданным размером и заголовком, вызывая TWindow.Init(Bounds, ATitle, wnNoNumber). GrowMode устанавливается в 0 и Flags устанавливается в wfMove + wfClose. Это означает, что по умолчанию диалоговые окна можно перемещать и закрывать, но нельзя изменять их размеры. Заметим, что TDialog не определяет собственного дестрактора, а использует Close и Done, наследуемые через TWindow, TGroup и TView.
См. так же: TWindow.Init
HandleEvent procedure HandleEvent(var Event: TEvent); virtual; Перекрывается: Иногда Вызывает TWindow.HandleEvent(Event), затем обрабатывает клавиши Enter и Esc. В частности Esc генерирует команду cmCancel, а Enter посылает общие сообщения cmDeafult. Этот метод так же обрабатывает cmOK, cmCancel, cmYes и cmNo, заканчивая модальное состояние диалогового окна. Для каждого из успешно обработанных событий он вызывает метод ClearEvent.
См. так же: TWindow.HandleEvent
GetPalette function GetPalette: PPalette; virtual; Перекрывается: Редко Этот метод возвращает указатель на палитру по умолчанию CPalette.
Valid function Valid(Command: Word): Boolean; virtual; Перекрывается: Редко Возвращает True, если заданная команда - cmCancel, или если все элементы управления группы возвращают True.
См. так же: TGroup.Valid
Палитра
Объекты диалогового окна используют палитру по умолчанию CDialog для отображения с 32 по 63 элемент в палитру программы.
1 2 3 4 5 6 7 8 9 +===+===+===+===+===+===+===+===+===+ CDialog | 32| 33| 34| 35| 36| 37| 38| 39| 40| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Пассивная --+ | | | | | | | +- Короткая метка рамка | | | | | | | Активная ------+ | | | | | +----- Подсвеченная рамка | | | | | метка Кнопка ------------+ | | | +--------- Нормальная метка рамки | | | Страница ------------+ | +------------- Статический текст скроллинга | Элементы управления -----------+ скроллинга
10 11 12 13 14 15 16 17 18 +===+===+===+===+===+===+===+===+===+ CDialog | 41| 42| 43| 44| 45| 46| 47| 48| 49| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Нормальная -+ | | | | | | | +- Короткий кластер кнопка | | | | | | | Кнопка по ----+ | | | | | +----- Выбранный кластер умолчанию | | | | | Выбранная -------+ | | | +--------- Нормальный кнопка | | | кластер Запрещенная -----------+ | +------------- Тень кнопки кнопка | Короткая кнопка ---------------+
19 20 21 22 23 24 25 +===+===+===+===+===+===+===+ CDialog | 50| 51| 52| 53| 54| 55| 56| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Нормальная --+ | | | | | +-- Элементы управления строка ввода | | | | | окна истории Выбранная -------+ | | | | строка ввода | | | | Стрелки -------------+ | | +------ Страница окна истории строки ввода | | Стрелка истории ------------+ | +---------- Стороны истории
26 27 28 29 30 31 32 +===+===+===+===+===+===+===+ CDialog | 57| 58| 58| 59| 60| 61| 62| +=+=+=+=+=+=+=+=+=+=+=+=+=+=+ Нормальный просмотр+ | | | | | +-- Зарезервировано списка | | | | | Активный просмотр ----+ | | | +------ Зарезервировано списка | | | Выбранный просмотр -------+ | +--------- Информационная панель | Разделитель просмотра ---------+
См. так же: Метод GetPalette для каждого типа объекта.
