scrollen im twebbrowser

[marabu]

Die Form, auf der du deine WebBrowser Komponente drauf hast, braucht eine private method:

Delphi-Quellcode:

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

[sam3st]

BOOAH vielen vielen dank!!!!

du weisst nicht wie sehr ich mich freue!!!

funzt alles prima...

wie gesagt mir fehlen echt ein paar grundlagen...