本文整理自网络，侵删。
delphi WebBrowser 滚动条的去除、边框去除
以前对WebBrowser 滚动条的去除，我都是用以下方法：
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.OleObject.Document.Body.Scroll := 'no';
WebBrowser1.OleObject.Document.Body.style.border := 'none';
webbrowser1.OleObject.Document.Body.Style.margin := '0px';
end;
主要是红色的这一句，但今天在一个程序没法实现，只好又在网上搜寻，最终肯定是搞定啦`~
通过总结网上各大虾的经验和多翻的测试，还是要从CSS下手，像上面的代码中，将页面边距设置为0，确实是生效的，但是滚动条始终还在；方便测试自己弄了个页面来给WebBrowser打开；
CSS简单代码如下：
body {
border: 0px;
overflow: auto; /*可自动隐藏或显示滚动条；设为 hidden 完全隐藏滚动条*/
}
有点HTML基础的朋友，都能看懂；而当你高高兴兴地弄好CSS 后，却发现 WebBrowser 的滚动条却依然存在，是 CSS 错了吗？ 不是~ 而是你的 DOCTYPE 出了问题，以上的 CSS 在 XHTML 下是无效果的，将 DOCTYPE 设为 HTML4 即可：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
做网页朋友应该知道，由于现在主流网页设计多为DIV+CSS，那么DOCTYPE的设定会直接影响到网页的设计效果，轻则模块错位，重则特效无法显示。
默认WebBrowser是没有边框的，这我们都知道；那么其实边框并不是 WebBrowser 产生的，而是 WebBrowser 中载入的 HTML 产生的。 相关阅读 >>
Delphi通过spcomm com口发短信包括pud编码解码
Delphi 的webbrowser如何全选并复制浏览器上的文字
Delphi richedit 的scrollbar自动向下滚动
Delphi源码webbrowser多次执行documentcomplete
Delphi中组件label、edit、tag、memo、richedit
更多相关阅读请进入《Delphi》频道 >>
