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 取得 app 自己的版本号 (狠跨 4 个平台)

Delphi windows消息大全

Delphi xe 无法编译apk提示sdk路径问题时？sdk路径配置方法

Delphi incyear、incmonth、incweek、incday、inchour、incminute、incsecond、incmillisecond �c 增时

Delphi winapi: settimer、killtimer - 创建与移除高性能定时器

Delphi tfontdialog

Delphi tdirectory.getdirectories

Delphi url protocol 让浏览器运行本地的exe程序

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

Delphi 判断uefi与 legacy bios启动模式

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

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