200分 一个关于使用webbrowser控件的问题(100分)

  • 主题发起人 主题发起人 winvxd
  • 开始时间 开始时间
W

winvxd

Unregistered / Unconfirmed
GUEST, unregistred user!
我在写一个程序中使用了webbrowser控件,我需要不断的往webbrowser里写东西
可是里面内容太多的时候,它不会自动的往下滚,也就是说看不见webbrowser里
最底端的内容,请问有什么办法可以做到。
 
uses Mshtml;

procedure TForm1.Button1Click(Sender: TObject);
var
Doc2 : IHTMLDocument2;
WBHeight : Integer;
begin
Doc2 := WebBrowser1.Document as IHTMLDocument2;
WBHeight := Doc2.body.getAttribute('ScrollHeight', 0);
Doc2.Get_ParentWindow.ScrollBy(0, WBHeight)
end;
 
直接選擇即可。

IHtmlInputElement.select;
 
unreal的方法我试了,有错误信息出现,是这一句的问题:
WBHeight := Doc2.body.getAttribute('ScrollHeight', 0);
 
怎么会???我可是试过了贴上来的!
说清楚什么错误提示?

我估计是你的Doc2为nil,加个判断吧
if Doc2 = nil then Exit;
 
多人接受答案了。
 
有没有搞错??????????????
 
后退
顶部