Delphi WebBrowser控件的事件-木庄网络博客

本文整理自网络，侵删。
 WebBrowser控件的事件:

1、BeforeNavigate2 导航发生前激发，刷新时不激发

2、CommandStateChange 当命令的激活状态改变时激发。它表明何时激活或关闭Back和Forward菜单项或按钮

3、DocumentComplete 当整个文档完成是激发，刷新页面不激发

4、DownloadBegin 当某项下载操作已经开始后激发，刷新也可激发此事件

5、DownloadComplete 当某项下载操作已经完成后激发，刷新也可激发此事件

6、 NavigateComplete2 导航完成后激发，刷新时不激发 NewWindow2 在创建新窗口以前激发

7、OnFullScreen 当FullScreen属性改变时激发。该事件采用VARIENT_BOOL的一个输入参数来指示IE是全屏显示方式(VARIENT_TRUE)还是普通显 示方式(VARIENT_FALSE)

8、OnMenuBar 改变MenuBar的属性时激发，标示参数是VARIENT_BOOL类型的。VARIANT_TRUE是可见，VARIANT_ FALSE是隐藏

9、OnQuit 无论是用户关闭浏览器还是开发者调用Quit方法，当IE退出时就会激发

10、 OnStatusBar 与OnMenuBar调用方法相同，标示状态栏是否可见。

11、 OnToolBar 调用方法同上，标示工具栏是否可见。

12、 OnVisible 控制窗口的可见或隐藏，也使用一个VARIENT_BOOL类型的参数

13、StatusTextChange 如果要改变状态栏中的文字，这个事件就会被激发，但它并不理会程序是否有状态栏

14、TitleChange 网页标题有效或改变时激发

例子程序
1、WebBrowser1.OleObject.document.all.item('btnName').click;//根据页面中按钮的名称执行其点击事件
2、WebBrowser1.OleObject.document.getElementByID('btnID').click;//根据按钮ID点击
3、WebBrowser1.OleObject.document.getElementsByTagName('input').item(0).click;//根据按钮索引点击
4、WebBrowser1.OleObject.document.all.item('userName').value:=userName;//修改文本框信息，也可用ID，同上
5、ShellExecute(0,'open','www.baidu.com',nil,nil,SW_SHOW);//为浏览器打开一个网页
WebBrowser控件的函数：
1、GoBack 相当于IE的”后退”按钮，使你在当前历史列表中后退一项

2、GoForward 相当于IE的”前进”按钮，使你在当前历史列表中前进一项

3、 GoHome 相当于IE的”主页”按钮，连接用户默认的主页

4、GoSearch 相当于IE的”搜索”按钮，连接用户默认的搜索页面

5、 Navigate 连接到指定的URL

6、Refresh 刷新当前页面

7、Refresh2 同上，只是可以指定刷新级别，所指定的刷新级别的值来自RefreshConstants枚举表，该表定义在ExDisp.h中，可以指定的不同值 如下： REFRESH_NORMAL 执行简单的刷新，不将HTTP pragma: no-cache头发送给服务器 REFRESH_IFEXPIRED 只有在网页过期后才进行简单的刷新 REFRESH_CONTINUE 仅作内部使用 REFRESH_COMPLETELY 将包含pragma: no-cache头的请求发送到服务器 <br><br/>


初始化和终止化 这几句话放在主窗口所有语句之后，“end.”之前(需引用ActiveX单元)。

复制代码
Initialization
  OleInitialize(nil);
Finalization
try
  OleUninitialize;
except
end;

 
TWebBrowser浏览相关

Webbrower的显示和隐藏
  WebBrowser1.Visible:=False;//这句是没有效果的
  TWinControl(WebBrowser1).Visible:=False;
 
OnCommandStateChange事件
    当执行TWebBrowser组件的某个方法的功能改变时被触发，其状态取值决定于执行Web浏览器中某个方法的功能。
property OnCommandStateChange: TWebBrowserCommandStateChange;

type TWebBrowserCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
Sender：指出其功能已变化的Web浏览器组件。
Command：指出功能变化的调用方法，参数取值如表所示。

常量值
说明
CSC_UPDATECOMMANDS
?1
不被其他常量包含的任何变化，应用程序必须检查Web浏览器的该属性以更新控制，

例如，事件处理程序可能在更新Stop按钮时检查Busy属性

CSC_NAVIGATEFORWARD

1
历史列表改变GoForward方法导航到一个新的URL的功能，Enable参数指定GoForward方法现在是否导航到一个新的URL
CSC_NAVIGATEBACK
2
历史列表改变GoBack方法导航到一个新的URL的功能，Enable参数指定GoBack方法现在是否导航到一个新的URL

Enable：指定CSC_NAVIGATEFORWARD或CSC_NAVIGATEBACK命令是否可用，其值为True时，可用；否则不可用。

示例：
OnCommandStateChange事件提供了一个命令状态改变后的处理功能，通过该事件能够判断执行某个命令后的当前浏览器状态，例如控制“后退”、“前进”或“停止”按钮是否可用
Delphi WebBrowser控件的事件

相关推荐

评论
