多页浏览器源码,有说明,适合学习用 //转到指定的URL,需要的话,创建新显示页面 procedureTForm1.Button1Click(Sender:TObject); var lsweb:TWebBrowser; //完成网页内容后处理相关的显示内容 procedureTForm1.WebBrowserDocumentComplete(Sender:TObject; constpDisp:IDispatch;varURL:OleVariant); begin Edit1.Text:=(PageControl1.ActivePage.Contr