动态创建tatabshell和表单例子

最新推荐文章于 2020-10-23 14:52:56 发布

pdw2009

最新推荐文章于 2020-10-23 14:52:56 发布

阅读量344

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/pdw2009/article/details/76147689

版权

delphi 专栏收录该内容

25 篇文章 0 订阅

订阅专栏

unit tabdemo;

interface

uses
  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);
begin

end;

//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;

interface

uses
  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.