Scrollen im TWebBrowser

[himitsu]

Also ein bissl Wissen hab ich mir ja zum Glück dank des netten Wetbewerbs angeeignet, unteranderem vieles zum TWebBrowser.
Und hier ist die gekürzte Variante für den Zugriff auf die ScrollPosition.

Code:

OleVariant(WebBrowser1.Document as IHTMLDocument2).Document.ScrollTo(0, 0);
OleVariant(WebBrowser1.Document as IHTMLDocument2).Body.ScrollTop := 0;
OleVariant(WebBrowser1.Document as IHTMLDocument2).Body.ScrollLeft := 0;

...

OleVariant(WebBrowser1.Document as IHTMLDocument2).Document.ScrollBy(x, y);

Also ab Document/Body ist das JavaScript-Syntax (überall nachlesbar - z.B. selfHTML)

Das Funktioniert 100%ig, aber wenn nicht, dann schau mal was du davon noch brauchst - hier mal ein Ausschnitt meines Uses-Bereichs:
XMLDOM, XMLIntf, MSXMLDOM, XMLDoc, IdHTTP, OleCtrls, SHDocVw, ActiveX, MSHTML...