怎样动态创建一个tabsheet,并使其显示一个已存在的form内容？

Question

var
  tmpSheet:TTabSheet;
begin
  with PageControl1 do
  begin
    tmpSheet:=TTabSheet.Create(Self) do
    tmpSheet.PageControl := PageControl1;
    tmpSheet.Caption := 'PageXXX';
    formXXX.parent:=tmpSheet;
  end;
end;

Answer 1

var
  Sheet:TTabSheet;
begin
  with PageControl1 do
  begin
    Sheet:=TTabSheet.Create(Self) do
    Sheet.PageControl := PageControl1;
    Sheet.Caption := 'Page';
    Sheet.Show;
  end;
end; 

Answer 2

var
  Sheet:TTabSheet;
begin
  with PageControl1 do
  begin
    Sheet:=TTabSheet.Create(Self) do
    Sheet.PageControl := PageControl1;
    Sheet.Caption := 'Page';
    Sheet.Show;
  end;
end; 

Answer 3

http://www.csdn.net/Expert/TopicView2.asp?id=484825&datebasetype=now