delphi WebBrowser 去除滚动条和边框

去掉滚动条只对某些网页起作用，比如百度的页面就不知道为什么去不掉。

下面是用Webbrowser显示图片时去掉边框和滚动条的方法，也适用于部分网页，实际上就是设置网页CSS。

在DocumentComplete事件中加入下列代码即可。

uses MSHTML;

((WebBrowser1.Document as IHTMLDocument2).body as HTMLBody).scroll := 'no';

(WebBrowser1.Document as IHTMLDocument2).body.style.border := '0';

(WebBrowser1.Document as IHTMLDocument2).body.style.borderStyle := 'none';

(WebBrowser1.Document as IHTMLDocument2).body.style.margin := '0';

(WebBrowser1.Document as IHTMLDocument2).body.style.padding := '0';

(WebBrowser1.Document as IHTMLDocument2).body.style.overflow := 'hidden';

推荐分享