Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизPageControl ... как сохранить динамически созданые RichEdit и текст из них? Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c