Delphi 让嵌入窗体的 WebBrowser 控件无边框


本文整理自网络,侵删。

 
实现的方法很简单,在窗体添加一个 WebBrowser 组件,然后执行以下代码:

WebBrowser1.Navigate('D:\Soft\HomePage.html');
但随之而来出现了一个问题:WebBrowser 组件在未载入 HTML 之前是无边框的,当载入 HTML 之后,WebBrowser 四周出现了一个三维边框,和程序本身的风格极不协调,查看了 WebBrowser 的所有属性,没有属性可以改变这一设置。

经过测试以后发现,该边框并不是 WebBrowser 产生的,而是 WebBrowser 中载入的 HTML 产生的,如果是这样的话,那问题就好解决了,真接用 CSS 去掉边框:

body {
    border: 0px;
    overflow: auto; /*可自动隐藏或显示滚动条;设为 hidden 完全隐藏滚动条*/
}
当你高兴地设置以上 CSS 后,却发现 WebBrowser 的边框却依然存在,是 CSS 错了吗?NO,是你的 DOCTYPE 出了问题,以上的 CSS 在 XHTML 下是无效果的,将 DOCTYPE 设为 HTML4 即可:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

相关阅读 >>

Delphi向imagelist中加入png类型的资源图片

Delphi 如何把字符串覆给数组

Delphi dbgrid1查询只显示50条记录修改

Delphi pi 精确计算返回圆周率

Delphi 内存截取字符串

Delphi for 循环 to和downto的理解

Delphi 验证tstrings是否存在

Delphi 对汉字字符串的截取问题

Delphi api读写ini文件

Delphi opendialog1文件过滤类型

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...