Была готовая форма с PageFrame1.
Я хочу, чтобы объекты страницы создавались при ее активизации.

Создал класс pg_kl – набор объектов с нужной страницы с заданными свойствами, методами, событиями.

Сами объекты со страницы удалил.

На Activate Page2 поместил код:


SET CLASSLIB TO pg_kl

ThisForm.PageFrame1.Page2.addobject("cont1","pg_kl")
ThisForm.PageFrame1.Page2.refresh
ThisForm.PageFrame1.Page2.cont1.visible=.t.


Addobject() выдает ошибку.
Ругается на то, что не существует объект PageFrame1.

Подскажите, что может быть не так?

Не знаю, может я чего-то не понимаю…
Выделил все объекты, какие были на странице и сохранил их как класс (Optiongroup, PageFrame со всеми своими grid, combo и т.д. ).

На инит создание класса делать не хочу, т.к. все заварилось именно из-за того, что форма загружается долго. Хочу, чтобы страницы загружались по мере их активизации.

А скажите, как потом обращаться к объектам этого класса?
У меня на Activate страницы на самом деле что-то вроде:


SET CLASSLIB TO pg_kl additive

ThisForm.PageFrame1.Page2.addobject("cont1","pg_kl")
ThisForm.PageFrame1.Page2.refresh
ThisForm.PageFrame1.Page2.cont1.visible=.t.


ThisForm.PageFrame1.Page2.Forecolor=rgb(0,0,255)
ThisForm.PageFrame1.Page2.FontBold=.t.
ThisForm.PageFrame1.Page2.cont1.Optiongroup1.Value=ty.tip_kl


Когда убираешь три последние строчки, то вроде все нормально…

Спасибо.

BaseClass - Container