tab:=ttabsheet.create(pagecontrol1);
with tab do
begin
visible:= true;
caption:= 'Áåçïàìÿòíûé'+inttostr(name1+1);
pagecontrol:= pagecontrol1;
Show;
PageIndex:=nomber;
end;
red:=TRichEdit.Create(PageControl1);
with red do
begin
parent:=tab;
ScrollBars:=ssVertical;
Align := alClient;
end;
Динамическое создание PageControl и на нём RichEdit
Добрый вечер.
Помогите пожалуйста с такой проблемой.
Я динамически создаю pagrCjntrol и на нём RichEdit. А обращаюсь к RichEdit(динамическому) таким образом
TRichEdit(PageControl1.ActivePage.Controls[0]).Lines.SaveToFile(SaveDialog1.Filename);
(это при сохранении..).
Проблема заключается в том, как из второй формы также обращаться. Дельфи ругается на TRichEdit (мол его не знаю).
Вот код динамического создания
Помогите пожалуйста с такой проблемой.
Я динамически создаю pagrCjntrol и на нём RichEdit. А обращаюсь к RichEdit(динамическому) таким образом
TRichEdit(PageControl1.ActivePage.Controls[0]).Lines.SaveToFile(SaveDialog1.Filename);
(это при сохранении..).
Проблема заключается в том, как из второй формы также обращаться. Дельфи ругается на TRichEdit (мол его не знаю).
Вот код динамического создания
Код:
Вопрос исчерпан.
Если кому-то поможет, то нужно в Uses прописать всё как в первой форме.
Если кому-то поможет, то нужно в Uses прописать всё как в первой форме.