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

UptoLike

ВУЗ: 

ПНИПУ | Пермь

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

Рубрика: 

54
где R − размеры окна; ATitle − заголовок окна.
var PD: PDialogWin;
Поскольку в диалоговое окно вставляются различные управляющие
элементы, в программе, как правило, используется не объект TDialog, а
создается производный от TDialog класс, конструктор которого создает
диалоговое окно и вставляет в него необходимые элементы.
Чтобы диалоговое окно стало модальным, его надо вставить в группу
DeskTop с
помощью метода ExecView:
Control : = DeskTop ^ . ExecView ( PD);
Когда окно закроется, ExecView удаляет диалоговое окно из группы
и осуществляет выход.
Вместо метода ExecView целесообразно использовать метод Execut-
eDilog класса TProgram:
Function TProgram.ExecuteDialog (P : TDialog; Data : Pointer ) : Word;
где Data − указатель на запись с передаваемыми данными.
Тогда диалог инициируется следующим образом:
Control := MyApp^.ExecuteDialog(P,nil);
Здесь данные окну не передаются. Обе функции возвращают код ко-
манды, завершившей диалог.
• Элементы управления диалоговым
окном. Кнопка (объект
TButton) − это прямоугольник с надписью, имитирующей кнопку панели
управления. Обычно TButton является элементом группы TDialog и “нажа-
тие” на кнопку инициирует событие, связанное с какой-либо стандартной
командой или командой пользователя. Большинство диалоговых окон име-
ет по крайней мере 2 кнопки: “OK” и “Cancel”. Модуль TDialogs определя-
ет 5 стандартных диалоговых команд, которые могут
быть связаны с TBut-
ton: cmOk, cmCancel, cmYes, cmNo, cmDefault. Первые 4 команды одно-
временно еще и закрывают диалоговое окно, так что модальным становит-
ся предыдущий видимый элемент:
Constructor TButton.Init (Var R : TRect, ATitle : TTitleStr; ACommand :
Word; AFlags : byte);
где R − область, занимаемая кнопкой;
ATitle − текст, который помещается в кнопке;
ACommand − команда связанная с кнопкой;
AFlags − флаг типа кнопки.
Когда создается кнопка, ее флаг может
быть установлен bfNormal
или bfDefault . Кнопка, помеченная как bfDefault, будет кнопкой по умол-
чанию, т.е. она “нажимается” при нажатии пользователем клавиши
“Enter”.Обычно кнопка “Ok” является кнопкой по умолчанию. Например: 
                                     54

где R − размеры окна; ATitle − заголовок окна.
    var PD: PDialogWin;
      Поскольку в диалоговое окно вставляются различные управляющие
элементы, в программе, как правило, используется не объект TDialog, а
создается производный от TDialog класс, конструктор которого создает
диалоговое окно и вставляет в него необходимые элементы.
      Чтобы диалоговое окно стало модальным, его надо вставить в группу
DeskTop с помощью метода ExecView:
      Control : = DeskTop ^ . ExecView ( PD);
      Когда окно закроется, ExecView удаляет диалоговое окно из группы
и осуществляет выход.
      Вместо метода ExecView целесообразно использовать метод Execut-
eDilog класса TProgram:
      Function TProgram.ExecuteDialog (P : TDialog; Data : Pointer ) : Word;
      где Data − указатель на запись с передаваемыми данными.
      Тогда диалог инициируется следующим образом:
      Control := MyApp^.ExecuteDialog(P,nil);
      Здесь данные окну не передаются. Обе функции возвращают код ко-
манды, завершившей диалог.

      •     Элементы управления диалоговым окном. Кнопка (объект
TButton) − это прямоугольник с надписью, имитирующей кнопку панели
управления. Обычно TButton является элементом группы TDialog и “нажа-
тие” на кнопку инициирует событие, связанное с какой-либо стандартной
командой или командой пользователя. Большинство диалоговых окон име-
ет по крайней мере 2 кнопки: “OK” и “Cancel”. Модуль TDialogs определя-
ет 5 стандартных диалоговых команд, которые могут быть связаны с TBut-
ton: cmOk, cmCancel, cmYes, cmNo, cmDefault. Первые 4 команды одно-
временно еще и закрывают диалоговое окно, так что модальным становит-
ся предыдущий видимый элемент:
      Constructor TButton.Init (Var R : TRect, ATitle : TTitleStr; ACommand :
Word; AFlags : byte);
где           R − область, занимаемая кнопкой;
          ATitle − текст, который помещается в кнопке;
    ACommand − команда связанная с кнопкой;
         AFlags − флаг типа кнопки.
      Когда создается кнопка, ее флаг может быть установлен bfNormal
или bfDefault . Кнопка, помеченная как bfDefault, будет кнопкой по умол-
чанию, т.е. она “нажимается” при нажатии пользователем клавиши
“Enter”.Обычно кнопка “Ok” является кнопкой по умолчанию. Например:

Страницы