rzpagecontrol通用打开窗体过程

原文地址：rzpagecontrol通用过程作者：xxhh

在MainForm上放了一个RzPageControl1

点击菜单动态创建RzPageControl1页，
同时动态创建相应窗体并显示在新建的RzPageControl1页上，

点击菜单时首先判断相应窗体是否已显示在RzPageControl1页上，
如果是则激活该页，否则创建新页并将新创建的窗体显示在该页上。
 

procedure TForm1.OpenFormPage(TabCaption: string;
  Formclass: TFormClass; var Myform; AOwner: Tcomponent);
var
  i:Integer;
  Found:Boolean;
  ATab:TRzTabSheet;
  AForm:TForm;
begin
  Found:=False;
  for i:=0 to RzPageControl1.PageCount-1 do
  begin
    if RzPageControl1.Pages[i].Controls[0].ClassName=Formclass.ClassName then
    begin
     RzPageControl1.ActivePageIndex:=i;
     Found:=True;
    end;
  end;
  if not Found then
  begin
   ATab:=TRzTabSheet.Create(RzPageControl1);
    ATab.Tag:=FormTag;
   ATab.PageControl:=RzPageControl1;

   AForm:=TForm(Formclass.Newinstance);
    TForm(Myform):=AForm;
    AForm.Create(AOwner);

   ATab.Caption:=TabCaption;
    AForm.Parent:=ATab;
    AForm.Align:=alclient;
   AForm.BorderStyle:=bsNone;
    AForm.Visible:=True;
   RzPageControl1.ActivePage:=ATab;
  end;
end;