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 paramcount、paramstr

Delphi 文件/流的加密解密方法

Delphi mediaplayer 实现录音

Delphi 测试 tstreamwriter、tstreamreader

Delphi combobox的属性和事件、及几个鼠标事件的触发

Delphi简单的字符串加密解密函数

Delphi禁止tedit, tmemo右键上下文弹出菜单

Delphi xe 程序瘦身.编译后exe最低90kb

Delphi 时间戳与日期互转

Delphi xe10 手机程序事件服务操作、退出键操作

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

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