WebBrowser-Zoom funktioniert nicht!?!

[eglar85]

Ich will nur erreichen, dass der Inhalt von Twebbrowser (visuell) verkeinert wird.
dafür benutze ich zB:

Delphi-Quellcode:

 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Webbrowser1.OleObject.Document.Body.Style.Zoom:=0.5;
end;

aber es funktioniert einfach nicht und ich komme nicht drauf wieso es das nicht tut.
Gibt es da bestimme vorinitialisierungen die ich machen muss?

[toms]

Hallo

Zu welchem Zeitpunkt rufst du den Code auf?
Evtl. könnte auch die IE Version relevant sein.

[eglar85]

Hi danke für die schnelle antwort.

Ich benutze IE version 7 und habe es mit buttons versucht und auch mit dem Event OnDocumentComplete
Und bei Form1.Create

[toms]

Wenn ich z.B zu Google navigiere und im OnDocumentComplete den Zoom einstelle funktioniert es bei mir (getestet unter IE8)

[eglar85]

hum ich hab google ausprobiert anscheinend liegt es an der seite und nicht am Browser.