Delphi WebBrowser1 读取当前页面字体大小

本文整理自网络，侵删。

 
uses ActiveX,ComObj;

//读取当前页面字体大小 
var
t: OleVariant;
Begin
  WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,EmptyParam,t);
  case t of
    4: Caption :='最大';
    3: Caption :='较大';
    2: Caption :='中';
    1: Caption :='较小';
    0: Caption :='最小';
  end;
end;

//设置页面字体大小 这句代码Delphi7不能编译通过 Delphi Xe2可以运行
   WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,3);
 

相关阅读 >>

Delphi xe6 switch元件�繁�w���}

Delphi 获取网页代码单元

Delphi @ 与 ^ 运算符

Delphi简单的字符串加密解密函数

Delphi getprocessisadmin()判断exe是否以管理员身份启动

Delphi repeat until 随机插入

Delphi xe5 android 黑屏的临时解决办法

Delphi 无法调用cmd nbtstat命令解决办法

isleapyear：返回给定的年份是否是闰年

Delphi计算md5

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

转载请注明出处：木庄网络博客 » Delphi WebBrowser1 读取当前页面字体大小