어떻게 TWebBrowser 의 페이지 를 축소 합 니까? - "하늘하늘 한 파란색" 질문 에 답 합 니 다.

1188 단어 WebBrowser
질문 출처:
http://www.cnblogs.com/del/archive/2009/03/13/1410935.html#1803351
웹 브 라 우 저 는 IE 를 호출 합 니 다. 페이지 를 축소 하 는 것 은 IE7 이후 에 야 지원 합 니 다.
준비 작업:
1. WebBrowser 1, Button 1 추가
2. 창 을 활성화 하 는 OnCreate 이벤트, Button 1 을 활성화 하 는 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.


 
   

좋은 웹페이지 즐겨찾기