Body.Style.Zoom

[Delphiturbo]

Achso
Ich habe nur die Tutorial komplett getestet. Also so natürlich

Delphi-Quellcode:

// in uses : MSHTML
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Document: OleVariant;
  Doc: IHTMLDocument2;
  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
  body.Style.Zoom := '150%';
end;