Delphi WebBrowser1 缩放网页

本文整理自网络，侵删。

 
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 xe listview导出excel

Delphi fdconnection取得excel工作表名

Delphi 程序窗体最大化、组件居中显示代码

Delphi的对象注销方法destroy和free的区别

Delphi中判断一个字符串是否为数字

Delphi fdmemtable1建立缓存表

Delphi读取android短信信息

Delphi 获取当前目录下所有文件名3

Delphi Delphi写的一个上位机

Delphi datasnap中间件如何控制长连接的客户端连接？

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

转载请注明出处：木庄网络博客 » Delphi WebBrowser1 缩放网页