delphi中webBrowser控件滚动条自动滚动

作者: 傻猫    分类: 搞软件     发布时间: 12-27 14:01    浏览次数: 5180     无留言

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 ); //滚动到最右最下

 

添加新评论