Добавление объекта в контейнерный класс

Добавить объект в контейнер можно с помощью предложения ADD OBJECT в команде DEFINE CLASS или методом AddObject.

В следующем примере определяется класс в виде формы. Команда ADD OBJECT добав яет две командные кнопки к этой форме:

DEFINE CLASS myform AS FORM

ADD OBJECT cmdOK AS COMMANDBUTTON

ADD OBJECT PROTECTED cmdCancel AS COMMANDBUTTON

ENDDEFINE

Метод AddObject используется для добавления объектов в контейнер после созда ия самого контейнера. В следующем примере создается объект в виде формы, к кото ой добавляются две командные кнопки:

frmMessage = CREATEOBJECT("FORM")

frmMessage.AddObject("cmdOK", "COMMANDBUTTON")

frmMessage.AddObject("cmdCancel", "COMMANDBUTTON")

Метод AddObject можно вызывать и внутри метода класса. В следующем определении класса метод AddObject используется в обработчике события Init для добавления лемента управления в столбец сетки.

DEFINE CLASS mygrid AS GRID

ColumnCount = 3

PROCEDURE Init

THIS.Column2.AddObject("cboClient", "COMBOBOX)

THIS.Column2.CurrentControl = "cboClient"

ENDPROC