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.