在Create一个tabsheet后如何动态创建一个Twebbrowser控件?(50分)

  • 主题发起人 主题发起人 007pig
  • 开始时间 开始时间
0

007pig

Unregistered / Unconfirmed
GUEST, unregistred user!
就如同NetCaptor中新建页面后的结果一样。
谢谢!
 
可将Twebbrowser加入一form中,每次创建tabsheet后,将form加入其中,即可
 
给你参考一下:
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;

我写了个多窗口的浏览器,但没有任何相应。。。看来没有什么价值
 
接受答案了.
 
后退
顶部