Question

Delphi7 WebBrowser 自动滚动怎么实现

webBrowser载入网页后，由于组建设置得很小，横向能显示完，纵向显示不完，要想让它自动滚动，并且由一个 TrackBar 调节速度，怎么实现。
不要给我网页代码哦，我是用其随便浏览网页，用程序实现自动滚动，要是我在线，可以在线教我做，我会在线等几个小时

Answer 1

用 TProgressBar
BrintFrm.ProgressBar1.StepIt;
BrintFrm.ProgressBar1.StepIt;
Sleep(10);
BrintFrm.ProgressBar1.StepIt;
Sleep(10);
BrintFrm.ProgressBar1.StepIt;
Sleep(10);
BrintFrm.ProgressBar1.StepIt;