如何实现TWebBrowser的滚屏功能？gz者有份.100分

Question

如何实现TWebBrowser的滚屏功能？像ReadBook,或CSDN的滚屏一样？
注：不能通过SendMessage向滚动条发出滚动信息，那样会出现闪烁不平滑。又怎样实现像Acrobat reader一样拖动一个大于TWebBrowser窗口的文件？
注：不是通过滚动条拖动，只要点击大于TWebBrowser窗口的文件就可以在显示窗口内任意拖动。不知哪位大虾能帮我解决这个问题？谢了。
最好能给点代码,说说思路也可以。

Answer 1

下面的脚本就是csdn用来滚屏的，看看有没有启发，如果要动态的加现在不会，不过最近发现webbrowser的变成很火哦。
<script language='javascript1.2' >
<!--
var currentpos,timer; 
function initialize() 
{ 
timer=setInterval('scrollwindow()',10);
} 
function sc(){
clearInterval(timer);
}
function scrollwindow() 
{ 
currentpos=document.body.scrollTop; 
window.scroll(0,++currentpos); 
if (currentpos != document.body.scrollTop) 
sc();
} 
document.onmousedown=sc
document.ondblclick=initialize
//-->
</script>