Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#11

Re: scrollen im twebbrowser

  Alt 6. Dez 2005, 13:35
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
  Mit Zitat antworten Zitat