如何去除 TWebBrowser 的边框和滚动条？答案

【问题标题】：How to remove border and scrollbars of TWebBrowser?如何去除 TWebBrowser 的边框和滚动条？
【发布时间】：2014-11-03 15:29:22
【问题描述】：

如何删除 TWebBrowser 组件的边框和滚动条？我搜索了很多，所有答案都差不多：

http://www.swissdelphicenter.com/torry/printcode.php?id=1171

http://delphidabbler.com/articles?article=18

但不起作用（它什么都不做！）。就我而言，我想在浏览器中查看本地文件。

如何隐藏边框和滚动条？

【问题讨论】：

“但不起作用” - 它怎么不起作用？它什么都不做吗？它会给你一个错误吗？它做的事情不是你想要的吗？
您的错误可能是您尝试在应用启动、表单显示或类似情况下执行此操作。您需要在每个文档完成加载后使用OnDocumentComplete 事件执行此操作。在文档加载完成之前尝试执行此操作将导致访问冲突，您不会说，但我假设这就是您所说的“但不起作用”的意思。
它什么也不做......我把代码放在 NavigateCompleted2
OnDocumentComplete 对我来说效果很好。顺便说一句，默认情况下我什至没有边框。
可能是因为某些网页有不同层次的边框？看看该代码是如何工作的。它假设一个特定的 HTML 元素会有滚动条，但不同的网站可能会在不同的元素中使用滚动条。

标签： delphi delphi-xe5

【解决方案1】：

您可以使用 css，TWebbrowser 使用 Internet Explorer（网站管理员的恐怖引擎 -> overflow:hidden ）。这种风格的解决方法对我很有效（不是在 body 节点中，而是在 html 中），在你的本地文件中尝试添加这种风格：

<!doctype html>
<html lang="en">
<head>
 <meta charset="utf-8">
<title></title>
<style>
html
{
 position:fixed;
 overflow:hidden;
 -ms-overflow-style: none;
    border:0px;
 }</style>
 </head>
<body>
 Test
</body>
</html>

在我的情况下它可以工作（delphi xe 4 和 windows 7），我制作了一个没有滚动条的小尺寸 webview。

【讨论】：