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

                                  61

где rec − это переменная, в которую заносится введенная пользователем
              с помощью строк ввода диалогового окна информация;
InsertEmpl − глобальная процедура, которая вставляет объект в список.
       6. Для организации более удобного ввода информации об объектах,
можно, кроме конструктора, реализовать для TNewDialog метод Han-
dleEvent (var Event : TEvent), который и будет осуществлять ввод инфор-
мации об объекте. В этот метод можно добавить обработку нестандартной
команды cmNewObject, которая выполняет ввод информации и добавление
объекта в список:
Procedure TNewDialog(Var Event:TEvent);
Begin
inherited HandleEvent(Event);
case Event.Command of
 cmNewObject:
  begin
  FillChar(rec,sizeof(rec),' ');
  GetData(rec);
................
employee:=New(PEmployee,Init(rec.name, sex, age, rec.post, work));
InsertEmpl(employee);
 else exit;
end;{case}
ClearEvent(Event);
End;
       Окно TNewDialog должно содержать кнопку, связанную с командой
cmNewObject. Это может быть кнопка “Ok”.
       При такой реализации метод TMyApp.NewObject будет только выво-
дить на экран модальное окно для ввода информации.
       7. Метод TMyObject.Show показывает объект, выводя значения его
полей, используя объекты TStaticText.
pw:=New(PWindow,Init(r,'Сотрудник',0));
r.assign(1,1,35,2);
StatText:=New(PStaticText,Init(r,'Имя: '+GetName));
pw^.Insert(StatText);
  и т.д.
Для закрытия окна следует добавить в окно кнопку “Ok”:
 r.assign(15,17,27,19);
 Insert(New(PButton,Init(r,'~O~k',cmOk,bfDefault)));
 SelectNext(false);