滚屏
uses MSHTML;
var
a:
IHTMLDocument2;
x,y:Integer;
begin
y:=y+20; //加减进行上下滚动
a :=WebBrowser1.Document as
IHTMLDocument2;
a.Get_ParentWindow.Scroll(x,y);
end;
uses MSHTML;
var
a:
IHTMLDocument2;
x,y:Integer;
begin
y:=y+20; //加减进行上下滚动
a :=WebBrowser1.Document as
IHTMLDocument2;
a.Get_ParentWindow.Scroll(x,y);
end;