webBrowser加载网页右边有滚动条，急急！在线等！

[学习de小子]

webBrowser加载网页右边有滚动条，急急！在线等！

[学习de小子]

我是要去掉右边的滚动条，用的是delphi7

[yct0605]

引用 3 楼 lyhoo163 的回复:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;  
  const pDisp: IDispatch; var URL: OleVariant);  
begin    // 隐藏水平垂直条    
  WebBrowser1.oleobject.Document.body.Scroll := 'no';  
  WebBrowser1.oleobject.Document.documentElement.style.overflow := 'hidden';  
end;  

试试。

测试可以实现楼主需要的效果。

[lyhoo163]

为何要关闭呢？它是默认的，当显示的内容大于屏幕时，自动显示出来，方便浏览。

[lyhoo163]

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;  
  const pDisp: IDispatch; var URL: OleVariant);  
begin    // 隐藏水平垂直条    
  WebBrowser1.oleobject.Document.body.Scroll := 'no';  
  WebBrowser1.oleobject.Document.documentElement.style.overflow := 'hidden';  
end;  

试试。

[浩南_哥]

http://bbs.csdn.net/topics/310212521#post-312179474 需要转换成Delphi，效果不错。

[学习de小子]

都不行哦，上面各位说的我百度都有了。但是就是不行

[lyhoo163]

引用 3 楼 lyhoo163 的回复:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;  
  const pDisp: IDispatch; var URL: OleVariant);  
begin    // 隐藏水平垂直条    
  WebBrowser1.oleobject.Document.body.Scroll := 'no';  
  WebBrowser1.oleobject.Document.documentElement.style.overflow := 'hidden';  
end;  

试试。

4档也测试完全可以啊，你为何不行？

[lyhoo163]

你的webBrowser是动态创建的。 如此，要将上述代码写一个函数，动态创建时，将它与DocumentComplete事件绑定。

[学习de小子]

还是不行，算了结帖吧。