★★★★★★大家一起修改这个程序，相互提高编程技巧★★★★★★★★★★★

Question

(WB as TWinControl).parent :=CTabSheet ;

Answer 1

你的这个问题我以前回答过！而且实现了动态创建和释放，就像藤讯的那个破浏览器一模一样！可惜我早不到了那个贴子了。是那个兄弟提出的那个问题，给出一个连接吧。
procedure TForm1.Button1Click(Sender: TObject);
begin
  CTabSheet:=TTabSheet.Create(self);
  CTabSheet.Parent:=self;
  CTabSheet.PageControl:=PageControl1;
  CTabSheet.caption:='Tab';
  WB:=TWebBrowser.Create(self);
  (WB as Twincontrol).parent:=CTabSheet ;
end;
这样应该没有问题了。

Answer 2

(WB as TWinControl).parent :=CTabSheet ; 好象也不行呀

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  CTabSheet:=TTabSheet.Create(self);
  CTabSheet.Parent:=self;
  CTabSheet.PageControl:=PageControl1;
  CTabSheet.caption:='Tab';
  WB:=TWebBrowser.Create(self);
  (WB as Twincontrol).parent:=CTabSheet ;
end; 
还是不行，编译是显示错误，“Cannot assign to a read-only property"
如何解决，那位大侠指点一下。

Answer 4

我以前做过一个多页面的浏览器，我的思路：
创建一个 TMyFrame = Class( TFrame ) , 在 该 Frame 上 放置一个 TWebBrowser, 
然后动态创建 你的 TMyFrame; 
这样没有问题的。

Answer 5

var
  Sheet: TTabSheet;
  WebFrame: TMyFrame;
begin
         Sheet := TTabSheet.Create(PageControl1);
         Sheet.PageControl := pcMain;
         Sheet.TabVisible  := true;
         Sheet.Caption := 'Blank ';         Sheet.Parent := pcMain;
         Sheet.Show;         WebFrame := TMyFrame.Create(Sheet);
         WebFrame.Parent := Sheet;
         WebFrame.Align := alClient;
         WebFrame.Show;        
<...>

Answer 6

修正：  
   pcMain => PageControl1