網頁放大 網頁縮小 WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.50; 縮放網頁
Ctrl+中鍵↑ 放大
Ctrl+中鍵↓ 縮小

const?
??OLECMDID_OPTICAL_ZOOM = 63;
var
??ZoomIn: OleVariant;
begin
??ZoomIn := 10;
??WebBrowser1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, ZoomIn);
end; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

10、讀取當前頁面字體大小
　類似“字體”菜單上的從“最大”到“最小”五項（對應整數0～4，Largest等假設為五個菜單項的名字，Tag 屬性分別設為0～4）。

? //讀取當前頁面字體大小?
var
????t: OleVariant;
Begin
??WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,EmptyParam,t);
??case t of
????4: Caption :='最大';
????3: Caption :='較大';
????2: Caption :='中';
????1: Caption :='較小';
????0: Caption :='最小';
??end;
end; ? ? ? //設置頁面字體大小 這句代碼Delphi7不能編譯通過 Delphi Xe2可以運行 ?? WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,3);
?

來自為知筆記(Wiz)

轉載于:https://www.cnblogs.com/xe2011/p/3876359.html

總結

以上是生活随笔為你收集整理的delphi 16 网页缩放的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。