![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранить Форму в Файл
Алексей П © (2003-01-06 16:33:00)Ситуация такая:
1) В режиме Run-Time создаются:
форма fmrdUnit
Компонент TrdQuickRep (на форме fmrdUnit)
Компонент TrdQRBand (на компоненте TrdQuickRep)
2) Затем форма сохраняется
SaveComponentToTextFile(TComponent(fmrdUnit),FFileName);
После этого смотрим ф файл:
fmrdUnit и TrdQuickRep сохранились как положено, а компонента TrdQRBand нет.
и так с любым компонентом, который оказывается не на форме.
Подскажите, в чем может быть проблема.
procedure TfmMine.SaveComponentToTextFile(Component: TComponent; const FileName: string);
var
ms: TMemoryStream;
fs: TFileStream;
begin
fs := TFileStream.Create(FileName, fmCreate or fmOpenWrite);
ms := TMemoryStream.Create;
try
ms.WriteComponent(Component);
ms.position := 0;
ObjectBinaryToText(ms, fs);
finally
ms.Free;
fs.free;
end;
end;
Алексей П (2003-01-07 13:48:00) [1]Большое спасибо, у меня как раз Owner и Parent - одно лицо, так сказать.
Надо изучать предметную часть...
Юрий Зотов (2003-01-07 11:10:00) [2]Видимо, при создании TrdQRBand его Owner"ом Вы делаете не форму, а TrdQuickRep или что-то еще. Owner"ом надо делать форму, а Parent"ом - то, на чем контрол должен размещаться (TrdQuickRep).