delphi WebBrowser 滚动条的去除、边框去除


本文整理自网络,侵删。

 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模仿“千千静听”滚动标题栏,非常简单!

Delphi防止因系统崩溃而丢失任务栏的图标(重建托盘图标)

Delphi_关于null,nil

android开发-px和dip以及sp的区别

Delphi 用cxgrid显示联合查询数据和更改数据

Delphi 64位汇编编程

Delphi 调用dll文件中的form

Delphi 调用驱动

Delphi unigui 控件动画

Delphi读写firebird二进制数据

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



打赏

取消

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

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

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

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

评论

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