webbrowser自动填表滚动条操作的方法

var scrolli:integer; begin if CheckBox1.Checked=false then begin scrolli :=webbrowser1.oleobject.document.frames.item(strtoint(editiframeno.text)).document.all.item('da_center').ScrollHeight; //获得滚动条最大高度 webbrowser1.oleobject.document.frames.item(strtoint(editiframeno.text)).document.all.item('da_center').scrollTop:=scrolli;//通过scrollTop设置滚动到100位置 setCursorPos(1303,454) ; //体温 end; end;