本文整理自网络，侵删。
QueryStatusWB
function QueryStatusWB(cmdID: OLECMDID): OLECMDF; cmdID列表
值
描述
OLECMDF_SUPPORTED
1
Web浏览器支持这个命令（但是该命令可能未被使用）
OLECMDF_ENABLED
2
该命令当前是使用的
OLECMDF_LATCHED
4
该命令是一个打开/关闭开关，当前处于打开的状态
OLECMDF_NINCHED
8
当前尚未使用该值
OLECMDF_INVISIBLE
16
当前尚未使用该值
确定可以使用ExecWB方法执行的命令，即Web浏览器支持的命令信息，该方法使用IOleCommandTarget接口的QueryStatus方法来得到命令状态的信息。
复制代码//QueryStatusWBprocedure TForm1.Button1Click(Sender: TObject);var bEnable,bSupport:Boolean;begin bEnable:= WebBrowser1.QueryStatusWB(OLECMDID_PASTE)=OLECMDF_ENABLED; bSupport:=WebBrowser1.QueryStatusWB(OLECMDID_PASTE)=OLECMDF_SUPPORTED; if (bEnable or bSupport) then WebBrowser1.ExecWB(OLECMDID_COPY,1);end;
//QueryCommandEnabled
if (Webbrowser1.Document as IHTMLDocument2).QueryCommandEnabled('Copy') then (Webbrowser1.Document as IHTMLDocument2).ExecCommand('Copy',false,'');
相关阅读 >>
Delphi tdirectory.getdirectories
Delphi tms web core直接从html&css设计的页面布局
Delphi strutils.leftstr、strutils.rightstr - 提取左右字符串
更多相关阅读请进入《Delphi》频道 >>
