Использование вложенных объектов

В Visual FoxPro имеются базовые классы, предназначенные для создания вложенных объектов, например, класс Grid (Таблица). При ссылке на вложенный объект необходимо перечислить все объекты, в которые он входит, разделяя элементы списка точками. Например, ссылка на столбец coicustomerid объекта customer типа Grid (Таблица) определяется следующим образом:

Customer.colCustomerld

Ссылка такого типа называется абсолютной. В Visual FoxPro кроме абсолютной ссылки, которая при большой глубине вложения объекта является слишком громоздкой, вы можете использовать относительные ссылки, т. е. ссылки относительно активных в данный момент объектов (сам объект, форма, в которую входит объект, и группа форм), что значительно сокращает список объектов ссылки и позволяет получить доступ к объекту, даже если вы не знаете его имени.

Ссылка на активную форму осуществляется с помощью свойства ActiveForm (Активная форма) объекта (_SCREEN). Например, следующее выражение позволяет изменить заголовок активной формы:

_SCREEN.ActiveForm.Caption= "Заголовок формы"

Аналогично, свойство ActiveControi (Активный элемент управления) позволяет получить доступ к активному объекту формы, а свойство ActivePage (Активная вкладка) — к активной вкладке формы. Например, следующее выражение позволяет изменить надпись активной кнопки

_SCREEN.ActiveControl.Caption= "Печать отчета"

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

Таблица 19.7. Ключевые слова для идентификации объектов

Для примера определим цвет текущего объекта и объекта, являющегося его непосредственным контейнером, а также заголовки формы и группы форм, которые содержат данный объект:

THIS.BackColor=RGB(255,255,255)

THIS.Parent.BackColor=RGB(192,0,0)

THISFORM.Caption="Форма, содержащая объект"

THISFORMSET.Caption="Группа форм, содержащая объект"

Каждый объект обрабатывает связанные с ним события независимо. Поэтому контейнер не может реагировать на события вложенного в него объекта даже в том случае, если данный объект не содержит метода для обработки события, а контейнер может реагировать на данное событие.

Ранее мы рассмотрели команды создания формы и присвоения ей заголовка. Теперь дополним эти команды командами размещения в форме кнопки, являющейся по отношению к ней вложенным объектом:

f rmNew=CREATEOBJECT ( "FORM")

frmNew.Caption="Форма, созданная с помощью команд"

frmNew.Show()

frmNew.AddObject("Button", "CommandButton")

cmdButton=frmNew.Button

cmdButton.Visible=.Т.

cmdButton.Top=190

cmdButton.Left=120

cmdButton.Width=70

cmdButton.Height=3 0

cmdButton.Caption="Выход"

Команда frmNew.AddObject("Button", "CommandButton") создает В frmNew на основе базового класса CommandButton (Кнопка управления) новый объект Button (Кнопка). Следующая команда делает видимой созданную кнопку. На рис. 19.7 показана форма, созданная этими командами.

Совет

В прикладных программах объекты желательно сохранять невидимыми до полного определения всех их свойств.

Рис. 19.7. Форма с вложенным объектом — кнопкой