VPF::Свойства динамически созданого компонента

chiffa

Дата 8.7.2011, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 734
Регистрация: 11.11.2003

Репутация: нет
Всего: -1

Добрый день. На Form1 выполняет код:

Код



mytab:=TTabSheet.Create(self);
mytab.PageControl:=Form2.FrmShPgCont;


mysrlbox:=TScrollbox.Create(self);
mysrlbox.Parent:=mytab;
mysrlbox.Align:=alClient;
mysrlbox.Color:=clBtnShadow;
mysrlbox.Name:='FrmShPdf';
mysrlbox.Visible:=False;

TFrmShow.OpenFrm; // создается Форма2

Далее на форме выполняется код:

Код


var FrmShPdf:TComponent;

 FrmShPdf := Form1.FindComponent('FrmShPdf');
TScrollBox (FrmShPdf).Visible:=True;

Компонент находит, но при обращении к его свойству (любому... уже пробывал разные) вылетает с ошибкой, что то типа: Аксес виолет ту аддресс... и т.д.

Кто сталкивался с таким? Подскажите что делаю не так? Заранее благодарен!

Rennigth

Дата 8.7.2011, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(chiffa @ 8.7.2011, 15:29

)

mytab.PageControl:=Form2.FrmShPgCont;

Form2 уже существует?

2.

Цитата(chiffa @ 8.7.2011, 15:29

)

TFrmShow.OpenFrm; // создается Форма2

У Вас OpenFrm классовая функция? Если да, то зачем?

3.

Цитата(chiffa @ 8.7.2011, 15:29

)

Компонент находит, но при обращении к его свойству (любому... уже пробывал разные) вылетает с ошибкой, что то типа: Аксес виолет ту аддресс...

Значит находит бред.

4. По огрызкам кода и информации что Вы дали, что-то понять очень трудно. Даже трудно понять что Вы хотите сделать.

--------------------

(* Honesta mors turpi vita potior *)

chiffa

Дата 11.7.2011, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 734
Регистрация: 11.11.2003

Репутация: нет
Всего: -1

Благодарю за ответ!

Форма создается через class function TForm2.OpenFrm: Boolean; (описано в Form2) и TForm2.OpenFrm; (из Form1)

Хочу сделать, что бы каждый раз при открытии формы создавались новые вкладки TabSheet, сосвоими компонентами

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »