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 unigui 控件动画

Delphi判断文本文件的编码格式

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi 抓图后打印这张图片,弹出打印属性框

Delphi 开启内存泄漏报告模式

Delphi getmem(mystring,1024);//开辟1024个字节freemem(mystring,1024);//释放

Delphi idhttpserver的使用方法

Delphi 在listview控件中绘底图

Delphi中实现调整图像的色阶的算法

Delphi 如何编写需要启动参数的Delphi程序

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

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