给你参考一下:
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;
我写了个多窗口的浏览器,但没有任何相应。。。看来没有什么价值