Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Свойства динамически созданого компонента


Автор: chiffa 8.7.2011, 15:29
Добрый день. На 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
1.
Цитата(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.  По огрызкам кода и информации что Вы дали, что-то понять очень трудно. Даже трудно понять что Вы хотите сделать.

Автор: chiffa 11.7.2011, 10:45
Благодарю за ответ!

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)