Delphi中动态生成标签页

pagecontrol控件

var

  pgc2 : TPageControl;          //标签页控件

  tabsheet : TTablSheet;       //标签

procedure TForm1.btnNewClick(Sender: TObject);  //按钮

var

  i : Integer;

begin

  pgc2 := TPageControl.Create(Self);           //Owner

  pgc2.Parent := Self;                                    //父控件

  pgc2.Align := alClient;                                //随着窗口最大化而最大化

  for i := 0 to 5 do

  begin

    tabsheet := TTabSheet.Create(pgc2);    

    with tabsheet do

    begin

      Caption := 'new' + IntToStr(i);

      PageControl := pgc2;

    end;

  end;     //begin

end;