关于RzPageControl控件的使用问题

[都先生]

1、创建page页的方法定义为
function CreateTabSheet(fmCaption: string): TRzTabSheet;
var
T: TRzTabSheet;
begin
T := TRzTabSheet.Create(PageControl1);
T.Caption := fmCaption;
T.ImageIndex := 3;
T.PageControl := PageControl1;
result := T;
end;
2、CurfmMine定义为当前页面窗体，赋值操作如下：
CurfmMine.BPpanel.Parent := CreateTabSheet('1');
PageControl1.ActivePageIndex := PageControl1.PageCount - 1;
PageControl1.Pages[PageControl1.ActivePageIndex].Tag := integer('2');
3、现在有多个CurfmMine，我打开多个以后，在关闭当前页的时候，报错？

[tgbd]

楼主可以通过融合技术将表单form放到pageControl上去，page会自动帮你创建和销毁tabsheet的。
手工创建tasbsheet再将表单融合进新建立的tabsheet，在关闭表单时，要用downto,而不是to
例：
　　for i:=page1.count-1 downto 0 do

[bdmh]

关闭当前页怎么做的