Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

PageControl ... как сохранить динамически созданые RichEdit и текст из них?   Найти похожие ветки 

← →
Lego   (2002-03-27 03:01) [2]

Хмм...
Вобщем есть форма, есть PageControl1 на котором при Button1Click динамически создаю TabSheet с RichEdit-ом, при закрытии формы естественно все созданное пропадает... как можно сохранить все созданые TabSheet, RichEdit и текст из RichEdit-ов в любом виде?
Кстати если это как-то поможет то создаю самым элементарным способом.

var
TabSheet: TTabSheet;
RichEdit: TRichEdit;
NewTab: String;
ClickedOK: Boolean;
begin
ClickedOK := InputQuery("Adding new page", "Name of page:", NewTab);
if ClickedOK then
begin
if Length(NewTab) = 0 then exit
else
TabSheet := TTabSheet.Create(PageControl1);
TabSheet.PageControl := PageControl1;
TabSheet.Caption := NewTab;

RichEdit := TRichEdit.Create(TabSheet);
RichEdit.Parent := TabSheet;
RichEdit.Align := alClient;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c