PageControl组件，如何动态增加/删除其上的TabSheet页面，并在页面上放置其它控件？

Question

就如同Visual Stadio.NET，新打开一个文件，编辑区增加一个TabSheet页面，上面放了一个编辑框编辑这个文件？

Answer 1

这个问题太简单了，多看一下PageControl组件属性的用法，再在程序里写就OK了
要多思考啊

Answer 2

是呀，多看看help就可以搞定的

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  mytab : TTabSheet;
  myrich : TRichEdit;
begin
  mytab := TTabSheet.Create(Self);
  mytab.PageControl := PageControl1;
  mytab.Caption := 'Demo';
  PageControl1.ActivePage := mytab;
  myrich := TRichEdit.Create(self);
  myrich.Parent := mytab;
  myrich.Align := alClient;
end;

Answer 4

谢了。不过，不是这么简单的吧，我的程序：
procedure TForm1.Button1Click(Sender: TObject);
var
  TabSheet1: TTabSheet;
  WebBrowser1: TWebBrowser;
  Flag,Frame,pData,Header: OLEVariant;
begin
  TabSheet1:=TTabSheet.Create(self);
  TabSheet1.PageControl:=PageControl1;
  TabSheet1.Caption:='Page1';
  WebBrowser1:=TWebBrowser.Create(self);
  WebBrowser1.Navigate('http://www.csdn.net',Flag,Frame,pData,Header);
  WebBrowser1.Parent:=TabSheet1;
  WebBrowser1.Align:=alClient;
------------------------------------------
这一句说： WebBrowser1.Parent:=TabSheet1;
Can't assign a readonly property，怎么Parent会成ReadOnly了？

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  TabSheet1: TTabSheet;
  WebBrowser1: TWebBrowser;
  Flag,Frame,pData,Header: OLEVariant;
begin
  TabSheet1:=TTabSheet.Create(self);
  TabSheet1.PageControl:=PageControl1;
  TabSheet1.Caption:='Page1';
  WebBrowser1:=TWebBrowser.Create(self);
  WebBrowser1.Align:=alClient;
  WebBrowser1.Navigate('http://localhost',Flag,Frame,pData,Header);
  WebBrowser1.ParentWindow:=TabSheet1.Handle;end;可以了OK，谢谢。
但现在又出现了另一个问题，为什么WebBrowser并没有以完全填充TabSheet？也就是说这一句  WebBrowser1.Align:=alClient;根本没有起作用？  

Answer 6

换个角度试试：
WebBrowser1.Left:=TabSheet1.Left;
WebBrowser1.Top:=TabSheet1.Top;
WebBrowser1.Height:=TabSheet1.Height;
WebBrowser1.Width;=TabSheet1.Width;
WebBrowser1.ParentWindow:=TabSheet1.Handle;

Answer 7

//Align会判断Parent是否指定～～
//WebBrowser1.ParentWindow:=TabSheet1.Handle;并没有指定Parent～～
//换成这样～～  WebBrowser1.Align:=alClient;
  TControl(WebBrowser1).Parent:=TabSheet1;