说明: 多页浏览器源码,有说明,适合学习用 //转到指定的URL,需要的话,创建新显示页面 procedure TForm1.Button1Click(Sender: TObject); var lsweb:TWebBrowser; //完成网页内容后处理相关的显示内容 procedure TForm1.WebBrowserDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin Edit
<dtl_cat> 上传 | 大小:11kb