Delphi Webbrowser1 QueryStatusWB

本文整理自网络，侵删。

 
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方法来得到命令状态的信息。

复制代码
//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,'');

 

相关阅读 >>

Delphi pchar与string互转

Delphi webbroker 制作网站

Delphi streamtohexstr

Delphi tapplication.onexception

Delphi 如何将整数值转换为罗马数字表示形式

Delphi 防局域网控制网速代码

Delphi xe10 fdmemtable 数据保存本地和从本地加载

Delphi 在桌面中嵌入窗体

Delphi 内存管理[4]

datasnap服务器如何得到客户端的ip和端口

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi Webbrowser1 QueryStatusWB