Скачать: CL | DM;

Сохранить Форму в Файл   Найти похожие ветки 

← →
Алексей П   (2003-01-06 16:33) [0]

Ситуация такая:
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 11:10) [1]

Видимо, при создании TrdQRBand его Owner"ом Вы делаете не форму, а TrdQuickRep или что-то еще. Owner"ом надо делать форму, а Parent"ом - то, на чем контрол должен размещаться (TrdQuickRep).

---

← →
Алексей П   (2003-01-07 13:48) [2]

Большое спасибо, у меня как раз Owner и Parent - одно лицо, так сказать.
Надо изучать предметную часть...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c