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

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

Наименование	Ссылка
THIS	На сам объект
THISFORM	На форму, которая содержит объект
THISFORMSET	На группу форм, которая содержит объект

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

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

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

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

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

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

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

frmNew=CREATEOBJECT ( " FORM" )

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

fmiNew.ShowO

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

cmdButton=frmNew.Button

andButton.Visible=.T.

cmdButton.Top=190

ondButton.Left=160

cmdButton.Width=7 0

cmdButton.Height=30

cmdButton.Caption="Выход"

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

Совет
Совет

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