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

UptoLike

ВУЗ: 

ПНИПУ | Пермь

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

Рубрика: 

56
• Установка и получение данных. Элементы управления бес-
полезны, если неизвестно как получить от них информацию. Надо иметь
возможность сделать 2 вещи:
1) установить начальные значения элементов;
2) прочитать значения при закрытии диалогового окна;
Для этого используются соответственно методы SetData ( копирует
данные в видимый элемент) и GetData ( копирует данные из видимого
элемента
). Каждый видимый элемент имеет методы SetData и GetData. Ко-
гда группа (например, TDialog) инициализируется с помощью вызова Set-
Data, она передает данные дальше, вызывая методы SetData для каждого из
подэлементов. При вызове SetData для группы методу передается запись
данных, которая содержит данные для каждого видимого элемента в груп-
пе. Данные для каждого элемента надо расположить в том
виде, в котором
они были вставлены в группу.
Для установки правильного размера данных для каждого видимого
элемента используется метод DataSize, который возвращает размер види-
мого элемента.
После выполнения диалога, надо проверить не была ли выполнена
отмена окна (команда cmCancel), а затем вызвать метод GetData для пере-
дачи информации в программу. Видимые элементы,
которые не имеют
данных (например, метки и кнопки), используют метод GetData, который
они наследуют от TView и который ничего не делает, т.е. при установке и
получении информации их можно пропустить. Можно установить запись
данных для диалогового окна в глобальном типе:
DialogData=record
CheckBoxData : word;
RadioButtonData : word;
InputLineData : string[128];
. . . . . .
end;
var Ddata: DialogData;
Затем до выполнения диалогового окна надо установить данные и
прочитать их, когда окно успешно закрыто.
PW^ . SetData (Ddata);
Control : = DeskTop ^ . ExecView ( PW);
if Control<> cmCancel then PW^ . GetData(Ddata);
Установка начальных значений диалогового окна выполняется в
конструкторе. 
                                  56

      •     Установка и получение данных. Элементы управления бес-
полезны, если неизвестно как получить от них информацию. Надо иметь
возможность сделать 2 вещи:
      1) установить начальные значения элементов;
      2) прочитать значения при закрытии диалогового окна;
      Для этого используются соответственно методы SetData ( копирует
данные в видимый элемент) и GetData ( копирует данные из видимого
элемента). Каждый видимый элемент имеет методы SetData и GetData. Ко-
гда группа (например, TDialog) инициализируется с помощью вызова Set-
Data, она передает данные дальше, вызывая методы SetData для каждого из
подэлементов. При вызове SetData для группы методу передается запись
данных, которая содержит данные для каждого видимого элемента в груп-
пе. Данные для каждого элемента надо расположить в том виде, в котором
они были вставлены в группу.
      Для установки правильного размера данных для каждого видимого
элемента используется метод DataSize, который возвращает размер види-
мого элемента.
      После выполнения диалога, надо проверить не была ли выполнена
отмена окна (команда cmCancel), а затем вызвать метод GetData для пере-
дачи информации в программу. Видимые элементы, которые не имеют
данных (например, метки и кнопки), используют метод GetData, который
они наследуют от TView и который ничего не делает, т.е. при установке и
получении информации их можно пропустить. Можно установить запись
данных для диалогового окна в глобальном типе:
      DialogData=record
      CheckBoxData : word;
      RadioButtonData : word;
      InputLineData : string[128];
      ......
      end;
      var Ddata: DialogData;
      Затем до выполнения диалогового окна надо установить данные и
прочитать их, когда окно успешно закрыто.
      PW^ . SetData (Ddata);
      Control : = DeskTop ^ . ExecView ( PW);
      if Control<> cmCancel then PW^ . GetData(Ddata);
      Установка начальных значений диалогового окна выполняется в
конструкторе.

Страницы