delphi 16 網頁縮放

標籤：style   blog   http   color   os   strong   io   2014   

網頁放大 網頁縮小    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)