Определяет свойства и их значения в определении класса.

[[PROTECTED | HIDDEN] PropertyName1, PropertyName2 ...]
[[.]Object.]PropertyName = eExpression ...]

Параметры

[PROTECTED | HIDDEN] PropertyName1, PropertyName2 ...]

Указывает одно или больше свойств класса при его создании. Свойства представляют собой именованные атрибуты класса, описывающие его характеристики и поведение. Используйте запятые для разделения свойств или описывайте каждое свойство на отдельной строке.

Замечание
Все свойства должны быть определены перед определением функций или процедур.

Ключевое слово PROTECTED позволяет запретить доступ и внесение изменений в указанные свойства извне определения класса. Методы и события внутри определения класса могут обращаться и к защищенным свойствам.

Ключевое слово HIDDEN позволяет запретить доступ и внесение изменений в указанные свойства извне определения класса. Только методы и события в определении класса, но не подкласса, могут обращаться к скрытым свойствам.

Совет
Вы можете создать подклассы с методами Access и Assign, если не включите ключевое слово HIDDEN.

[[.]Object.] PropertyName= eExpression ...]

Назначает значения по умолчанию свойствам класса. Включение слова .Object. означает, что Visual FoxPro назначит значение свойству элемента управления ActiveX при его создании. Для большей информации смотрите раздел Примеры.

Замечания

Следующий код показывает краткую сводку главных операторов команды  DEFINE CLASS:

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

Для большей информации и полного описания синтаксиса смотрите  команда DEFINE CLASS. Для большей информации об отдельных операторах команды DEFINE CLASS смотрите следующие темы:

• оператор DEFINE CLASS

• оператор PEMName_COMATTRIB

• оператор ADD OBJECT

• оператор IMPLEMENTS

• оператор определения функции или процедуры Function or Procedure Definition Clause

Пример

Следующий пример создает форму frmOLETest на основе базового класса Form. Затем, при помощи метода AddObject добавляется объект с именем OCXTest на основе класса BlueOLEControl, созданного при помощи команды DEFINE CLASS, и  указанного класса OLE для элемента управления ActiveX Listview. Ключевое слово .Object используется для указания значения свойству BackColor элемента управления ActiveX перед его созданием.

Скопировать код

PUBLIC frmOLETest frmOLETest = CREATEOBJECT('Form') frmOLETest.Visible = .T. frmOLETest.AddObject('OCXTest', 'BlueOLEControl', 'MSComctlLib.ListViewCtrl') frmOLETest.OCXTest.View = 2 frmOLETest.OCXTest.ListItems.Add(1,'one','Item One') frmOLETest.OCXTest.ListItems.Add(2,'two','Item Two') DEFINE CLASS BlueOLEControl AS OLEControl * Set property for Outline ActiveX control. .Object.Backcolor = 16776960 * Set properties for the OLE Container control. Visible = .T. Height = 100 Width = 200 ENDDEFINE

Для большей информации смотрите метод AddObject.

Смотрите также

Перевод - Рябинин Олег  aka OLEGarh