WebBrowser 怎样去掉ScrollBars ?

Question

在网上看到这样的语句：  WebBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden';
  WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden';
或
var
  DOM:Variant;
begin
  DOM:=WebBrowser1.Document;
  DOM.Body.Style.OverflowX := 'hidden';
  DOM.Body.Style.OverflowY := 'hidden';
end;但我没有调试成功，是什么原因？
怎么解决去掉ScrollBars的问题，谢谢!

Answer 1

http://www.euromind.com/iedelphi/embeddedwb/ongethostinfo.htm

Answer 2

在 OnDocumentComplete事件中写
WebBrowser1.OleObject.document.body.scroll:='no'; 你也可以这么写，可能程序会更清晰一些
uses
  MSHTML;
(WebBrowser1.Document as IHTMLDocument2).body.setAttribute('scroll','no',0);
  

Answer 3

完整写法
在onDocumentComplete中加入:
doc:=IHTMLDocument2(Webbrowser1.Document);
if(doc<>nil) then
begin
  item:=doc.body;
  if(item<>nil) then 
    item.style.borderstyle:='none'
end;