关于RzPageControl控件的使用问题

Question

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，我打开多个以后，在关闭当前页的时候，报错？

Answer 1

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