Delphi WebBrowser1 缩放网页


本文整理自网络,侵删。

 
    Ctrl+中键↑ 放大  
    Ctrl+中键↓ 缩小
uses ActiveX,ComObj;
const
  OLECMDID_OPTICAL_ZOOM = 63;
var
  ZoomIn: OleVariant;
begin
  ZoomIn := 10;
  WebBrowser1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, ZoomIn);
end;

相关阅读 >>

Delphi研究之驱动开发篇(二)--工具及环境搭建

Delphi检测用户超过5分钟没有操作键盘或鼠标

Delphi 遍历文件单元文件

Delphi - system.runerror

Delphi 计算文件与当前时间差(天小时分钟秒)

Delphi异常信息捕捉

Delphi 把pf8bit位图变换成pf24bit位图

Delphi exe图标替换

Delphi tms web core 在线pdf教程

Delphi 随机字符3

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...