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




Вниз

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


Lego   (2002-03-26 07:44) [0]

сабж



MBo   (2002-03-26 07:53) [1]

в каком виде?



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;



MBo   (2002-03-27 03:08) [3]

сохранять в ini-файл все, что динамически создается в любом виде, например, pagecontrol1count=5,tabsheet1element1=richedit
содержимое richedit - lines.savetofile



Lego   (2002-03-27 07:39) [4]

ок... спасибо... проверю.



Damblador   (2002-03-27 07:42) [5]

Можно попробовать TFileStream с его WriteComponent и ReadComponent.



Eug201   (2002-03-27 09:28) [6]

Если потребуется несколько Richedit"ов (или других объектов), то при создании запоминай их в TList:

var
RList:TList;
RichEdit:TRichEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
RList:=TList.Create;
for i:=1 to кол-во do
begin
RichEdit:=TRichEdit.Create(..);
RList.Add(RichEdit);
....//установка параметров RichEdit
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
for i:=1 to RList.Count do
begin
RichEdit:=RList[Pred(i)];
...//сохраняем Richedit
RichEdit.Free;//удаляем RichEdit
end;
RList.Free;
end;




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




Наверх





Память: 0.72 MB
Время: 0.018 c
7-22854           Pasha                 2001-09-21 15:44  2002.04.08  
Порты в Win2000


1-22719           vlv                   2002-03-26 20:45  2002.04.08  
Как очистить TBitmap?


1-22764           DimaIv                2002-03-25 17:00  2002.04.08  
Как в Word документе сделать найти и заменить на


1-22661           LiNkS                 2002-03-27 21:59  2002.04.08  
Как переместить в Memo курсор на опр. место в опр. строке?


4-22889           Turalyon              2002-02-07 10:54  2002.04.08  
Путь к исполняемому файлу