delphi EdgeBrowser1 浏览器实现控制滚动条

delphi使用Edge Browser浏览器组件 http://www.delphitop.com/html/kongjian/6207.htmlvarLScriptText:string;begin LScriptText := 'javascript: ' + '' + 'document.documentElement.scrollTop=10000;';EdgeBrowser1.ExecuteScript(LScriptText);