|
导读在使用WebBrowser控件的时候,我们想实现IE中的比如打印、复制、刷新等功能,在SHDocVw单元中有完整的常量定义 比如: OLECMDID_COPY OLECMDID_SELECT... 在使用WebBrowser控件的时候,我们想实现IE中的比如打印、复制、刷新等功能,在SHDocVw单元中有完整的常量定义 比如: OLECMDID_COPY OLECMDID_SELECTALL等等 下面的代码完成了WebBrowser的刷新页面的功能,其他的功能可以举一反三。 procedure TForm1.Button1Click(Sender: TObject); var a,b: OleVariant; begin a:=0; b:=0; c := WebBrowser1.QueryStatusWB(OLECMDID_REFRESH ); if c>0 then WebBrowser1.ExecWB(OLECMDID_REFRESH, OLECMDEXECOPT_PROMPTUSER, a, b) else showmessage('命令不能执行!'); end; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('http://www.codelphi.com'); end; |
温馨提示:喜欢本站的话,请收藏一下本站!