Body.Style.Zoom

[Delphiturbo]

Ich bin nun fast soweit

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document: OleVariant;
  WindowName: string;

  Doc: IHTMLDocument2;
  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
  CurWebrowser := pDisp as IWebBrowser;
  if CurWebrowser = TopWebBrowser then
   begin
  body.Style.Zoom := '100%';
end
  else
  begin
  body.Style.Zoom := '150%';
  end;
end;

Quelle : http://www.swissdelphicenter.ch/de/showcode.php?id=1355