delphi webbrower的滚动条控制

uses mshtml; var htmldoc: IHTMLDocument2; MaxScrollWidth, MaxScrollHeight: Integer; htmldoc := web.Document as IHTMLDocument2; MaxScrollHeight := htmldoc.body.getAttribute('ScrollHeight', 0); //获得滚动条最大高度 MaxScrollWidth := htmldoc.body.getAttribute('ScrollWidth', 0);//获得滚动条最大宽度 Web.OleObject.Document.ParentWindow.ScrollBy(MaxScrollWidth, MaxScrollHeight ); //滚动到最右最下 var htmldoc: IHTMLDocument2; MaxScrollWidth, MaxScrollHeight: Integer; begin htmldoc := webbrowser2.Document as IHTMLDocument2; MaxScrollHeight := htmldoc.body.getAttribute('ScrollHeight', 0); //获得滚动条最大高度 MaxScrollWidth := htmldoc.body.getAttribute('ScrollWidth', 0);//获得滚动条最大宽度 form1.Caption :=IntToStr(MaxScrollHeight)+'  '+IntToStr(MaxScrollWidth); webbrowser2.OleObject.Document.ParentWindow.ScrollTo(0, 1200 ); //滚动到指定位置 webbrowser2.OleObject.Document.ParentWindow.ScrollBy(0, 120 ); //每次跳着滚动120个相素