hier mal einen Auszug wie ich im TWebbrowser scrolle (per Buttonclick)
Delphi-Quellcode:
var LVar: OLEVariant;
begin
LVar := OleVariant(Browser.Document as IHTMLDocument2);
if Sender = BtnScrollLeft then LVar.Body.ScrollLeft := LVar.Body.ScrollLeft - 5 else
if Sender = BtnScrollRight then LVar.Body.ScrollLeft := LVar.Body.ScrollLeft + 5 else
if Sender = BtnScrollUp then LVar.Body.ScrollTop := LVar.Body.ScrollTop - 5 else
if Sender = BtnScrollDown then LVar.Body.ScrollTop := LVar.Body.ScrollTop + 5;
"Browser" ist dabei ein TWebBrowser.