WEB浏览器

[zhudy]

我想作一个多页面显示的浏览器窗口（像腾讯的那样）,请问要用pagecontrol还是用 tabbednotebook呢？还有怎样才能让每个页面调用webbrowser？

[zhudy]

怎么没人回答呢

[8chen8]

pagecontrol

[zhudy]

怎样才能让每个页面调用webbrowser

[zhudy]

怎样才能让每个页面调用webbrowser

[kylion]

动态创建webbrowser.

[zhudy]

怎样动态创建webbrowser？能给出源代码吗

[zhudy]

还是没能实现，再求助

[zhudy]

还是没能实现，再求助

[zhudy]

怎样才能让每个页面调用webbrowser

上面的还没能实现，再求助

[gaocaichi]

或者加个Webbrowse控件也行啊，

[gaocaichi]

当然加个pagecontrol最好，在每个page上加个webbrowser，也行

[gdutqhl]

动态创建webbrowser:
procedure proCreateWebbrowser;
var
mybrowser:twebbrowser;
begin
mybrowser:=twebbrowser.create(form1);
mybrowser.parent:=form1;
mybrowser.show;
end;

[ChinaOk]

Tembeddedwb是一个浏览器控件。 pcl是你程序里pagecontrol孔件的名 TabSheet:=TTabsheet.Create(Homepage);
tabsheet.Hint:=WideString(Urls.Text);
tabsheet.Caption:=WideString(Urls.Text);
tabsheet.PageControl:=HomePage;
tabsheet.Width:=Homepage.Width;
tabsheet.Height:=Homepage.Height;
tabsheet.Show;
WebBrowser:= TWebBrowser.Create(self);
webBrowser.ParentWindow:=tabsheet.Handle;
webbrowser.Dock(tabsheet,a);
WebBrowser.Align:=alClient;
WebBrowser.Visible:=true;
webBrowser.Navigate(WideString(Urls.Text),Flags, Flags, Flags, Flags);
webBrowser.OnTitleChange:=webtitlechange; //标题控制
webBrowser.OnStatusTextChange:=WebStatusTextChange; //状态栏显示连接
webbrowser.OnDownloadBegin:=Webdownloadbegin; //开始下载
webbrowser.OnDownloadComplete:=webdownloadend; //下载完成
webbrowser.OnProgressChange:=webprogresschange; //下载中...
webbrowser.OnNewWindow2:=newwindow; //新窗口
webbrowser.OnBeforeNavigate2:=beforenav; //开始新窗口
webbrowser.OnNavigateComplete2:=webNavigateComplete2;

[zhudy]

程序在运行前只有一个page，别的页是动态生成的
并且在每个页中能动态生成WebBrowser

[vernal]

给你点东东吧

主要的工作是在多页面上建立WebBrowser的问题可以如下处理：var
tabs:TTabSheet;
web:TEmbeddedWB;
begin
//建立新的页面
tabs:=TTabSheet.Create(pcl);
tabs.PageControl:=pcl;
tabs.Caption:='[新网页]';
tabs.ShowHint:=true;
tabs.Hint:=tabs.Caption;
//在新页面上建立webbrowser
web:=TEmbeddedWB.Create(tabs);
web.ParentWindow := tabs.Handle;
web.Align:=alClient;
web.Width:=tabs.Width;
web.Height:=tabs.Height;

[zhudy]

TEmbeddedWB与pcl是什么