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 ado的事务处理例子

Delphi 关于选择文件路径 selectdirectory 弹出窗口居中的问题

Delphi 高速替换大文本字符串内容

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi执行cmd命令和bat文件

Delphi tsearchrec

Delphi system.messaging.pas例子

Delphi 控制iis，检测、增加、删除虚拟目录

Delphi之autorun(复制自身+循环扫描)

Delphi ifileoperation替换shfileoperation

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

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