如何去掉TWebBrowser的滚动条

Question

偶用下面两种方法都不行，偶滴是delphi7。
１）、IHTMLBodyElementDisp(IHTMLDocument2(WebBrowser1.document).body).scroll:= 'no';
２）、WebBrowser1.oleobject.Document.body.Scroll := 'no';
注：第一种方法需要在uses部分加上MSHTML_TLB或者MSHTML。郁闷啊郁闷。
求达人帮忙
谢谢了先

Answer 1

procedure  TForm1.WebBrowser1DocumentComplete(Sender:  TObject;  
   const  pDisp:  IDispatch;  var  URL:  OleVariant);  
begin  
   if  Assigned(WebBrowser1.Document)  then  
       WebBrowser1.OleObject.Document.Body.Scroll  :=  'no';  
end;