用TWebBrowser控件，取出scrolltop是0，应该怎么取滚动条的位置？

Question

用TWebBrowser，取出scrolltop是0，怎么办？
htmldoc:=Browser.Document as IHTMLDocument2;
Element2:=htmldoc.body as IHTMLElement2;
showmessage(inttostr(Element2.scrolltop));

Answer 1

试试我的代码。。var
  htmldoc: IHTMLDocument2;
  MaxScrollHeight,Scrolltop:integer;  htmldoc := WebBrowser1.Document as IHTMLDocument2;
  MaxScrollHeight := htmldoc.body.getAttribute('ScrollHeight', 0);
  Scrolltop  := htmldoc.body.getAttribute('scrollTop', 0);
  showmessage(inttostr(Scrolltop));