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 tfilestream 流操作2

如何减小Delphi应用程序(exe)的大小

Delphi nethttpclient1 数据库查询

Delphi获取各种编码的识别符

Delphi showmodal与show的区别

Delphi xe10 手机内部系统相关操作（手机信息、震动、剪贴板、键盘、电话、拨号）

Delphi xe 网上获取北京时间android app 启动黑屏优化补丁

Delphi 鼠标跟随代码

Delphi now、date、time、currentyear - 当前日期

Delphi判断电脑连接到 internet 了吗？

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

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