procedure TForm1.AddTabSheet;
var
  WebBrowser: TWebBrowser;
  TabSheet: TTabSheet;
begin
  TabSheet := TTabSheet.Create(self);
  TabSheet.PageControl := PageControl;
  WebBrowser := TWebBrowser.Create(self);
  WebBrowser.Parent := TabSheet;
  WebBrowser.Align := alClient;
  WebBrowser.Navigate('http://www.csdn.net');
end;

解决方案 »

  1.   

    to:taxi(游少爷)
    你的例子在编译时说,无法给只读属性赋值,就是这WebBrowser.Parent := TabSheet;
      

  2.   

    to:taxi(游少爷)
    你的例子在编译时说,无法给只读属性赋值,就是这WebBrowser.Parent := TabSheet; 
      

  3.   

    to:taxi(游少爷)
    你的例子在编译时说,无法给只读属性赋值,就是这WebBrowser.Parent := TabSheet; 
      

  4.   

    我关注此题,但游少爷的代码无法实现浏览网页时的自动打开,像NETCAPTOR一样,而要自动触发。