一个代码,借你这里放一下,呵呵
uses里要加activex
var
htmldoc: IHTMLDocument2;
wb: twebbrowser;
MaxScrollHeight:integer;
begin
speed:=webbrowser1.Height;
WB := WebBrowser1;
if wb <> nil then
begin
htmldoc := wb.Document as IHTMLDocument2;
MaxScrollHeight := htmldoc.body.getAttribute('ScrollHeight', 0);
ScrollHeight := ScrollHeight + speed;
//if ScrollHeight < MaxScrollHeight then
htmldoc.Get_ParentWindow.ScrollBy(0, speed)
end;