unitfrmpagecontrol.pas

来自「oracle基础知识讲义」· PAS 代码 · 共 49 行

unit unitFrmPageControl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TfrmPageControl = class(TForm)
    pgcDemo: TPageControl;
    btnAddPage: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnAddPageClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPageControl: TfrmPageControl;

implementation

{$R *.dfm}

procedure TfrmPageControl.FormCreate(Sender: TObject);
begin
  with pgcDemo do
  begin
    HotTrack := True;
    TabPosition := tpBottom;
  end;
end;

procedure TfrmPageControl.btnAddPageClick(Sender: TObject);
var
  tmpTabSheet: TTabSheet;
begin
  if pgcDemo.PageCount > 6 then
    Exit;
  tmpTabSheet := TTabSheet.Create(pgcDemo);
  tmpTabSheet.Caption := ' 页面' + IntToStr(pgcDemo.PageCount + 1);
  tmpTabSheet.PageControl := pgcDemo;
end;
end.