TWebBrowser, Zoom, Verschiebung nach unten

[hoika]

Hallo,

die 100. Variante des Zoom

Klappt auch ganz gut.

Einziger Wermutstropfen.
Ab 150 rutscht das Fenster etwas runter, so als ob man runtergescrollt hat.
Ich muss dann jedes Mal wieder hochscrollen.

Gibt es da auch einen Befehl ?

(ScrollBy ist es nicht.

Delphi-Quellcode:

var
  zoom: OleVariant;
begin
  

  zoom := iZoom;   // iZoom, 100, 150, 200
  WebBrowser.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_PROMPTUSER,zoom);

[hoika]

Hallo,
so Lösung für mein Scrollproblem steht hier

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