Body.Style.Zoom

[Delphiturbo]

Hallo

um eine Webbrowser zu zoomen, sind die 2 Varianten möglich :

Delphi-Quellcode:

WebBrowser1.OleObject.Document.Body.Style.Zoom :=2;
WebBrowser1.OleObject.Document.Body.Style.Zoom :='200%';

Ich wollte den Zoomfaktor so eingeben :

Delphi-Quellcode:

var
zoom : Real;
creenwidth : Integer;
begin
creenwidth := Screen.MonitorFromWindow(Handle).Width;
zoom:= creenwidth div Form1.width;
WebBrowser1.OleObject.Document.Body.Style.Zoom :=zoom; // passiert nichts