【Delphi】请问大虾们在webBrowser中控制显示的网页比例怎么设置

[xiongdingfu]

WebBrowser1.Navigate('http://USER-2017-15/commonpdf/35734.jpg'); //打开指定页面

用上面的程序打开一张图片后很大，浏览器装不下，请问怎么缩小？我是用Delphi写的。

[老之]

uses MSHTML;

IHtmlDocument2(WebBrowser1.document).parentWindow.execScript('document.body.style.zoom=0.5;', 'javascript');

[xiongdingfu]

在缩放网页的时候，多点两下缩放按钮就出现了异常。请问程序怎么修改？

[xiongdingfu]

[xiongdingfu]

我的原程序是这样的： shrink是一个整数，在单元开头进行声明，并在窗体创建时给初值shrink=0 procedure TfrmLiterature.SpeedButton2Click(Sender: TObject); var s:string; begin shrink:=shrink+1; if shrink=1 then s:='0.5'; if shrink=2 then s:='0.4'; if shrink=4 then s:='0.3'; if shrink=5 then s:='0.2'; if shrink=6 then s:='0.1'; if shrink=7 then s:='0.08'; if shrink=8 then s:='0.05'; if shrink=9 then s:='0.01'; if shrink=10 then s:='0.005'; if shrink=11 then s:='0.003'; if shrink=12 then s:='0.0005'; if shrink=13 then s:='0.00005'; try IHtmlDocument2(WebBrowser1.document).parentWindow.execScript('document.body.style.zoom='+s+';', 'javascript'); except exception.Create('系统异常！请关掉本窗口，再重新打开。'); end; end;