多窗口浏览器无法动态生成WEBBROWSER(在线等） ( 积分: 200 )

CTabsheet:=TTabsheet.Create(CPageControl);
CTabsheet.PageControl:=PageControl1;
CTabsheet.Parent:=PageControl1;
CTabsheet.Caption:=URLs.Text;
CTabsheet.Name:=Format('%s%s',['Tabsheet',InttoStr(i+1)]);
CWebBrowser:=TWebBrowser.Create(CTabsheet);
CWebBrowser.Parent:=CTabsheet;--出错，错误原因cannot assign to read-only property
谁能帮我解决或者有类似的源代码。

CTabsheet:=TTabsheet.Create(CPageControl);
CTabsheet.PageControl:=PageControl1;
CTabsheet.Parent:=PageControl1;
CTabsheet.Caption:=URLs.Text;
CTabsheet.Name:=Format('%s%s',['Tabsheet',InttoStr(i+1)]);
CWebBrowser:=TWebBrowser.Create(CTabsheet);
CWebBrowser.Parent:=CTabsheet;--出错，错误原因cannot assign to read-only property
谁能帮我解决或者有类似的源代码。

已经解决。

怎么解决的

CTabsheet:=TTabsheet.Create(CPageControl);
CTabsheet.PageControl:=PageControl1;
CTabsheet.Parent:=PageControl1;
CTabsheet.Caption:=URLs.Text;
CTabsheet.ImageIndex:=i;
CTabsheet.Show;
CTabsheet.Name:=Format('%s%s',['Tabsheet',InttoStr(i+1)]);
CWebBrowser:=TWebBrowser.Create(CTabsheet);
CTabsheet.InsertControl(CWebBrowser);
CWebBrowser.Align:=alClient;
CWebBrowser.Navigate(URls.Text);

呵呵，还有两种方式
1、procedure TForm1.Button1Click(Sender: TObject);
var
WebBrowser: TWebBrowser;
begin
try
WebBrowser := TWebBrowser.Create(self);

WebBrowser.ParentWindow:=self.Handle;

WebBrowser.Left := 0;
WebBrowser.Top := 0;
WebBrowser.Width := 100;
WebBrowser.Height := 50;
WebBrowser.Navigate('file:///C:/test.htm');
WebBrowser.Show;
except
WebBrowser.Destroy;
end;
end;

2、
procedure TForm1.Button1Click(Sender: TObject);
var
WebBrowser: TWebBrowser;
begin
try
WebBrowser := TWebBrowser.Create(self);
WebBrowser.Dock(self, self.ClientRect);
WebBrowser.Navigate('file:///C:/test.htm');
WebBrowser.Show;
except
WebBrowser.Destroy;
end;
end;