Турбо Паскаль 6.0


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.




Начало  Назад  Вперед