delphi Webbrowser1 QueryStatusWB

QueryStatusWB

function QueryStatusWB(cmdID: OLECMDID): OLECMDF;

cmdID列表

值

描述

OLECMDF_SUPPORTED

Web浏览器支持这个命令（但是该命令可能未被使用）

OLECMDF_ENABLED

该命令当前是使用的

OLECMDF_LATCHED

该命令是一个打开/关闭开关，当前处于打开的状态

OLECMDF_NINCHED

当前尚未使用该值

OLECMDF_INVISIBLE

当前尚未使用该值

确定可以使用ExecWB方法执行的命令，即Web浏览器支持的命令信息，该方法使用IOleCommandTarget接口的QueryStatus方法来得到命令状态的信息。

复制代码

//QueryStatusWB

procedure 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,'');

推荐分享