注意: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.
标签:WebBrowser1,Body,TWebBrower,TObject,var,大小,OleObject,Document,动态 From: https://blog.51cto.com/u_16076050/6196081