Добавляет Объекты из других Классов во время описания текущего Класса. 

[ADD OBJECT [PROTECTED] ObjectName AS ClassName2 [NOINIT] [WITH cPropertylist]]

Параметры

[ADD OBJECT [PROTECTED] ObjectName AS ClassName2

Определяет добавляемый Объект, порождаемый Базовым Классом  Visual FoxPro, или пользовательским Классом, ПодКлассом, или доступным описанием внешнего Контрола  ActiveX - в текущее описание Корневого Объекта (Класса). Опция PROTECTED предотвращает (защищает) доступ или изменение (с внешней стороны) Свойств создаваемого (добавляемого) Класса или Подкласса.

[NOINIT]

Определяет, что стандартный метод Init не будет выполнен при добавлении данного Класса в Корневой Объект.

[WITH cPropertyList]]

Определяет Список свойств, или параметров, которые передаются в создаваемый (добавляемый) объект (класс). Дополнительную информацию смотрите в Разделе Примеры.

Expand imageКомментарии

Следующая далее Синтаксическая Конструкция описывает общее представление Команды описания Корневого Класса DEFINE CLASS, в который вставляется дополнительный Объект:

  CopyCode imageКопировать Код 
DEFINE CLASS Clause
 [Property_Definition_Clause]
 [PEMName_COMATTRIB Clause]
 [ADD OBJECT Clause]
 [IMPLEMENTS Clause]
 [Function_Procedure_Definition_Clause]
ENDDEFINE

Дополнительную информацию о Полной конструкции указанной Команды смотрите в разделе: DEFINE CLASS, команда. Детальное описание составных секций указанной Команды DEFINE CLASS смотрите в следующих Разделах:

Expand imageПример

В следующем далее примере создается класс с именем: MyForm, который порождается базовым классом Form, в который добавляется Командная Кнопка, порождаемая базовым классом CommandButton, а также добавляется Контрол ChkBopx1, порождаемая классом CheckBox:

  CopyCode imageКопировать Код 
DEFINE CLASS MyForm AS Form
 ADD OBJECT cmdButton1 AS CommandButton
 ADD OBJECT chkBox1 AS CheckBox
ENDDEFINE

А в другом Примере, который представлен далее, создается Класс с именем MyForm, в который добавляется также Командная Кнопка и Контрол -Переключатель, для которых определяются пользовательские Заголовки, через свойство Caption ("Yes" - Да, "Click Me" - Нажми Меня).

  CopyCode imageКопировать Код 
DEFINE CLASS MyForm AS Form
 ADD OBJECT cmdButton1 AS CommandButton WITH Caption = "Yes"
 ADD OBJECT chkBox1 AS CheckBox WITH Caption = "Click Me"
ENDDEFINE

Expand imageСм. также