关于pagecontrol的使用--在线

Question

窗体上有一pagecontrol，并为其添加tabseet1，且tabsheet1上放有一个memo，我想在运行程序的时候，单击‘新建’按钮，pagecontrol就生成一个tabsheet,并且生成的页上也有同样的memo,能实现吗？如果能该怎么写代码？

Answer 1

var
  NewSheet:TTabSheet;
begin
  NewSheet:=TTabSheet.Create(self);
  with NewSheet do
  begin
    PageControl := PageControl1;
    Caption:='PageCaption'+IntToStr(PageControl1.PageCount);
  end;
  PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
end;

Answer 2

想放Memo？  with TMemo.Create(NewSheet) do
  begin
    Parent:=PageControl1.ActivePage;
  end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  memo :TMemo ;
  tabsheet :TTabSheet ;
  count :integer ;
begin
  count := PageControl1.PageCount + 1;
  tabSheet := TTabSheet.Create(PageControl1);
  with tabSheet do
  begin
    Parent := PageControl1 ;
    PageControl := PageControl1 ;
    Name := 'tabSheet' + IntToStr(Count) ;
    TabVisible := true ;
  end ;  Memo := TMemo.Create(tabSheet);
  with Memo do
  begin
    Memo.Parent := tabSheet ;
    Name := 'Memo' + IntToStr(Count) ;
    Memo.Visible := true ;
  end ;
  PageControl1.Update ;
end;