如何放缩 TWebBrowser 中的页面 - 回复 "飘逸的蓝" 的问题

问题来源: http://www.cnblogs.com/del/archive/2009/03/13/1410935.html#1803351

---

TWebBrowser 调用的是 IE, 放缩页面是在 IE7 之后才支持的.

准备工作:
1、添加 WebBrowser1、Button1
2、激活窗体的 OnCreate 事件、激活 Button1 的 OnClick 事件.

代码如下:

---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  OLECMDID_OPTICAL_ZOOM = 63;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://del.cnblogs.com');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ZoomIn: OleVariant;
begin
  ZoomIn := 150;
  WebBrowser1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, ZoomIn);
end;

end.