FoxPro8




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


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 показана форма, созданная этими командами.

Совет

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

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




Содержание  Назад  Вперед