TWebBrowser的流程是这样的:
OnBeforeNavigate2 <--开始链接时会触发此事件
OnNavigateComplete2 <--成功的链接到此网页(以后才会有下面的事件)
OnDownloadBegin <--开始下载
OnDownloadComplete <--下载结束
OnDocumentComplete <--页面下载完毕
对于每个HTML页面,顺序都是如此.如果是Frame或IFrame的文件都会当成HTML页面处理.也就是说如果一个页面中有3个IFrame,那么总共会触发4次BeforeNavigate2事件.
对于每个连接且需要显示出来的二进制文件(如*.gif,*.bmp,*.jpg...)都会触发一个DownloadBegin和DownloadComplete事件
Delphi带的TWebBrowser在Borland\Delphi7\Bin\dclib70.bpl里面,最好重新从Microsoft Internet Controls(C:\WINDOWS\system32\shdocvw.dll) 再Import ActiveX一下,使接口完善一点。
1. 在引用单元里面最好加上
initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;
2. 在NewWindow接口里面,设置了默认的left、top、width、height,也可以js使用Window.open来设置弹出窗体的大小和高度
例如:
<div id="d_zdy" onclick="window.open('http://www.windin.com','cccc','resizable=no,menubar=no,status=no,scrollbars=no,top=200,left=200,toolbar=no,width=320,height=260')" class="imgHomepage" href="javascript://"> </div>