有一个WebBrowser空间在Pagecontrol控件上,当Pagecontrol控件增加一页时自动生成一个WebBrowser控件,并且显示当前最新链接,而且前一页仍显示原来的链接,这如何实现啊
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;
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;
你的例子在编译时说,无法给只读属性赋值,就是这WebBrowser.Parent := TabSheet;
你的例子在编译时说,无法给只读属性赋值,就是这WebBrowser.Parent := TabSheet;
你的例子在编译时说,无法给只读属性赋值,就是这WebBrowser.Parent := TabSheet;