保存窗体上各组件位置和打开保存的窗体上各组件

[No_1gogo]

有一个窗体，上面有pagecontrol组件，在TabSheet上根据字段的多少动态创建Edit组件和创建新页。存取窗体时用的是流文件来存取。现在能把各页上的Edit组建存到文件里，但是取的时候，只能在一个页面上生成各组件，本来在其他页面上的组件也在这个页面上了，怎么读取文件生成多页面的Edit啊？
以下是原程序：
//保存窗体上控件
var
S:TFileStream;
I,iTab:Integer;
　Tab:array [1..10] of TTabSheet;
begin
if SaveDialog1.Execute then
begin
{创建和打开流文件}
S:=TFileStream.Create(SaveDialog1.FileName,fmOpenWrite or fmCreate);
try
for iTab:=1 to CntTab do
begin
with Tab[iTab] do
begin
for I:=0 to ControlCount-1 do
S.WriteComponent(Controls[I]);
end;
end;
finally
S.Free;
end;
end;
end;

//打开文件，生成原来保存的窗体控件，没有成功的，请大家看看
procedure TFormDesignFm.OpenBtnClick(Sender: TObject);
var
S:TFileStream;
New:TComponent;
iTab:integer;
begin
if OpenDialog1.Execute then
begin
{删除存在的文件}
NewBtnClick(self);
{打开流文件}
S:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
for iTab:=1 to CntTabRec do
begin
with Tab[iTab] do
begin
try
{从流文件中读出所有的组件对象,并添加到窗体上}
while S.Position<S.Size do
begin
{读出一个组件,并添加到窗体上}
New:=S.ReadComponent(nil);
InsertControl(New as TControl);
end;
finally
S.Free;{关闭流文件}
end;
end;
end;
end;

[baby_hhh]

帮你顶！

[ahzhangcg]

保存时，连同组件的拥有结构一起保存，就象Delphi的From　View as Text一样，读取时也按该结构读出

[No_1gogo]

当然连组件所有的结构都保存了，但是由于组件的parent也是动态生成的，所以这样就比较麻烦了，我现在想到的一个方法是，每一页存成一个文件，到时候按页数来读

[sunwk]

用WriteComponetResFile试试。

首先用RemoveComponent去掉Form中你不想保存的组件,如Button等，然后用WriteComponetResFile保存Form剩余的所有组件。
如：
RemoveComponent(SaveBtn);
RemoveComponent(LoadBtn);
WriteComponentResFile('c;\test.sav',Form1);

载入保存时用ReadComponentResFile，注意之前要用RegisterClass注册所以要载入控件的类型
如：
Classes.RegisterClass(TPageControl);
Classes.RegisterClass(TTabSheet);
Classes.RegisterClass(TEdit);
ReadComponentResFile('c;\test.sav',Form1);

[No_1gogo]

楼上的，好象不行啊，运行老出错，能给个完整的例子吗？
如果想保存给这些控件写的事件呢，该怎么保存？现在好象只能保存这些控件的属性。
还有，我想把TEdit、TLabel、TButton之类的控件在运行时，宽度用鼠标可调（就跟设计窗体时，用鼠标调整宽度长度一样），该怎么办啊？

[4043335]

up