TPageControl动态加页？

Question

如何用代码实现TPageControl增加页、删除页！

Answer 1

动态创建TTabSheet实例var TabSheet:TTabSheet;TabSheet:=TTabSheet.Create(Self);
TabSheet.PageControl:=PageControl1;删除自然就是Free

Answer 2

// 添加
procedure TForm1.Button1Click(Sender: TObject);
var
 sheet: TTabSheet;
begin
  sheet := TTabSheet.Create(Self);
  sheet.PageControl := PageControl1;
//  sheet.PageIndex := PageControl1.ActivePageIndex + 1;
  sheet.Caption := 'TabSheet' + IntToStr(PageControl1.PageCount);
end;
// 删除
procedure TForm1.Button2Click(Sender: TObject);
begin
  PageControl1.ActivePage.Free;
end;