本文共 2036 字,大约阅读时间需要 6 分钟。
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.
转载地址:http://dmvwn.baihongyu.com/