Die Form, auf der du deine WebBrowser Komponente drauf hast, braucht eine private method:
procedure ScrollDown(doc: IHTMLDocument2);
Die Implementierung ist dann wie folgt - Statt TDemoForm nimmst du den Namen deiner Form (TForm1):
Delphi-Quellcode:
procedure TDemoForm.ScrollDown(doc: IHTMLDocument2);
var
ec: IHTMLElementCollection;
v: OleVariant;
e: IHTMLElement;
begin
ec := Doc.body.children
as IHTMLElementCollection;
v := Pred(
ec.length);
e :=
ec.item(v, null)
as IHTMLElement;
if Assigned(e)
then
e.scrollIntoView(false);
end;
Aufrufen tust du das ganze mit:
Delphi-Quellcode:
// Statt WB nimmst du den Namen deiner TWebBrowser Komponente
ScrollDown(WB.Document as IHTMLDocument2);
Grüße vom marabu