DELPHI 6写的多页浏览器源码

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