动态创建tatabshell和表单例子

unit tabdemo;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, RzTabs,unit3, StdCtrls,RzButton;type  TForm2 = class(TForm)    tbc1: TTabControl;    rzpgcntrl1: TRzPageControl;    btn1: TButton;    procedure rztbshtTabSheet1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure rzpgcntrl1TabClick(Sender: TObject);    procedure btn1Click(Sender: TObject);  private    { Private declarations }    rztabsheet:    TRzTabSheet;    from3:TForm3;  public    { Public declarations }  end;var  Form2: TForm2;implementation{$R *.dfm}procedure TForm2.rztbshtTabSheet1Click(Sender: TObject);beginend;//rztbshtTabSheet2: TRzTabSheet;procedure TForm2.FormCreate(Sender: TObject);var   tabShell2:TRzTabSheet   ;begin  if   rztabsheet=nil then  begin    rztabsheet := TRzTabSheet.Create(rzpgcntrl1);    rztabsheet.PageControl := rzpgcntrl1;    rztabsheet.Caption:='test';  end;  tabShell2 := TRzTabSheet.Create(rzpgcntrl1);  tabShell2.PageControl := rzpgcntrl1;  tabShell2.Caption:='test-Tab2';  rzpgcntrl1.ActivePageIndex:=0;end;procedure TForm2.rzpgcntrl1TabClick(Sender: TObject);var  tmp_form3:TForm3;  tabShell2  :TRzTabSheet;begin  if   rzpgcntrl1.ActivePageIndex=1 then  begin    tabShell2:=rzpgcntrl1.PageForTab(rzpgcntrl1.ActivePageIndex) ;    from3:=TForm3.Create(tabShell2  );    from3.Parent  :=tabShell2.PageControl;    from3.Align := alClient;    from3.Show;  end;end;procedure TForm2.btn1Click(Sender: TObject);var   tmp_tabShell:TRzTabSheet   ;begin  tmp_tabShell := TRzTabSheet.Create(rzpgcntrl1);  tmp_tabShell.PageControl := rzpgcntrl1;  tmp_tabShell.Caption:='test-Tab2';  rzpgcntrl1.ActivePageIndex:=0;end;end.

unit Unit3;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, RzPanel, StdCtrls;type  TForm3 = class(TForm)    rzgrpbx1: TRzGroupBox;    btn1: TButton;  private    { Private declarations }  public    { Public declarations }  end;var  Form3: TForm3;implementation{$R *.dfm}end.