TWebBrower 动态改变大小

注意：Panel1.BevelOuter := bvNone;

unit Unit2;

 interface

 uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, OleCtrls, SHDocVw, ExtCtrls;

 type

 TForm2 = class(TForm)

     Panel1: TPanel;

     WebBrowser1: TWebBrowser;

     procedure FormCreate(Sender: TObject);

     procedure WebBrowser1NavigateComplete2(ASender: TObject;

       const pDisp: IDispatch; var URL: OleVariant);

     procedure WebBrowser1NavigateError(ASender: TObject; const pDisp: IDispatch;

       var URL, Frame, StatusCode: OleVariant; var Cancel: WordBool);

 private

     { Private declarations }

 public

     { Public declarations }

 end;

 var

 Form2: TForm2;

 implementation

 {$R *.dfm}

 procedure TForm2.FormCreate(Sender: TObject);

 begin

 WebBrowser1.Navigate('www');

 end;

 procedure TForm2.WebBrowser1NavigateComplete2(ASender: TObject;

 const pDisp: IDispatch; var URL: OleVariant);

 begin

 try

     Self.ClientHeight :=

       WebBrowser1.OleObject.Document.Body.clientHeight +

       WebBrowser1.OleObject.Document.Body.scrollHeight +

       WebBrowser1.OleObject.Document.Body.bottomMargin +

       WebBrowser1.OleObject.Document.Body.topMargin + 1;

     Self.ClientWidth :=

       WebBrowser1.OleObject.Document.Body.clientWidth +

       WebBrowser1.OleObject.Document.Body.scrollWidth +

       WebBrowser1.OleObject.Document.Body.leftMargin +

       WebBrowser1.OleObject.Document.Body.rightMargin + 1;

     ShowMessage(Format('ClientHeight=%d, ClientWidth= %d', [ClientHeight, ClientWidth]));

 except

 end;

 end;

 procedure TForm2.WebBrowser1NavigateError(ASender: TObject;

 const pDisp: IDispatch; var URL, Frame, StatusCode: OleVariant;

 var Cancel: WordBool);

 begin

 Panel1.Visible := False;

 end;

 end.