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

                                     55
      r.Assign(15,12,27,14);
      Insert(New(PButton,Init(r,'~O~k',cmOk,bfDefault)));         {добавляется
кнопка Ok}
      r.Assign(32,12,43,14);
      Insert(New(PButton,Init(r,'Cancel',cmCancel,bfNormal)));{добавляется
кнопка Cancel}
      Статический текст (объект TStaticText) − это видимый элемент,
который просто отображает строку, переданную в него. Текст будет цен-
трироваться, если строка начинается с #3. Символ #13 в тексте указывает
на начало новой строки.
      Constructor TStaticText.Init (Var R : TRect, const AText : String);
      Текст автоматически делится на слова и размещается внутри прямо-
угольника видимого элемента без переноса.
      R.Assign(1,1,35,2);
      DepText:=New(PStaticText,Init(r,'Текст'));
      Insert(DepText);

      Строка ввода (объект TInputLine) используется для ввода различных
текстовых строк с клавиатуры:
      Constructor TInputLine.Init (Var R : TRect, AMaxLen : integer);
где AMaxLen − размер буфера (≤ 255) для вводимых данных.
      Например:
      R.Assign(3,8,37,9);
      B:=New(PInputLine,Init(r,128));{добавляется строка ввода длиной не
более 128 символов}
      Insert(b);
      Метки управляющих элементов (объект TLabel) служат для ото-
бражения поясняющего текста и, кроме того, метка связывается с другим
видимым элементов, так что отметка мышкой метки приводит к активиза-
ции связанного с ней элемента.
      Constructor TLabel.Init (Var Bounds : TRect, const AText : String;
ALink : PView);
где Bounds − размер поля метки;
     AText − текст метки;
     ALink − указатель на объект, который связан с меткой.
      Например:
      R.Assign(2,7,30,8);
      Insert(New(PLabel,Init(R,'Enter the number, please',B)));{добавляется
метка, связанная со строкой ввода}