在 Mike Lischke 的Virtual Treeview 中，添加了解决方法代码以修复在同一窗体上使用TWebBrowser控件时出现的错误。

问题在于，如果用户尝试与TOleControl（TWebBrowser 从中下降）进行交互，第一次鼠标点击就会被吃掉。然后他们必须再次单击以赋予控制焦点。然后他们可以与控件交互。

他有评论要解释：

派生自的每个控件TOleControl都有潜在的焦点问题。

为了避免包含允许测试类的OleCtrls单元（其中将包含Variants ），该接口用于测试，这是一个很好的指标。TOleControlIOleClientSiteTOleControl

从完整的片段：

问题是解决方法不再对我有用。老实说，我不知道问题到底是什么，以及他的解决方案是如何解决的。

有没有人知道他的评论理解他在说什么，可以解释问题是什么，以及他应该如何解决问题？

包装的非 VCL 控件（如 TWebBrowser）的解决方法，这些控件不使用 VCL 机制，并使 ActiveControl 属性处于错误状态，这会在控件重新聚焦时引起问题。从 TOleControl 派生的每个控件都有潜在的焦点问题。

代码达到预期

声明，但它只是没有做的伎俩。

我会修复它，但我不知道他是如何找到它的，也不知道TOleControl不“使用 VCL 机制并让 ActiveControl 属性处于错误状态”的原因。

奖金阅读

我最初在 2008 年在 新闻组上问过这个问题borland.public.delphi.nativeapi.win32

Soft-Gems 论坛上的问题

Bump 20110515（12 个月后）

Bump 20150401（7 年后）：在 XE6 中仍然不起作用

凹凸20210309（11年后）

有什么方法可以直接在 Delphi 2010 中安装 TWebBrowser 而无需安装 Web 开发控件？

如果我在 Delphi 2010 设置中选择 Web Development Controls 选项，则会安装 TWebBrowser。但是这个“包”超过 200 MB，我只需要 TWebBrowser。

有什么方法可以直接在 Delphi 2010 Pro 上安装 TWebBrowser？

谢谢！

如何将 Delphi 中的 TWebBrowser 组件从 ADS 域外部连接到 Sharepoint 服务器？我在我的域中创建了一个用户帐户，并将使用此信息连接到服务器。

以下代码不起作用：

与 Basic-Auth 相同（不工作）的结果。

我们在我们的程序中使用 TCppWebBrowser 组件作为一种聊天窗口，但是由于 TCppwebrowser 使用 IExplorerengine，所有被点击的链接都在 IExplorer 中打开。我的一个想法是取消 Onbeforenavigate2 中的导航并执行 Shell.execute，但希望有一个更优雅的解决方案，例如我可以处理的 windowsmessage 或事件或其他东西。

我有一个在运行时创建并在后台使用的 TWebBrowser 对象，即不可见。问题是像 OnDocumentComplete 这样的事件在 Delphi2009 中不起作用或未触发。有什么建议吗？

Navigate 和 Navigate2 之间有什么重要的区别吗？如何在此处启用 cookie？

提前致谢。

如何获取使用 TWebBrowser 加载的网页的大小（字符或字节）？我的意思是“大小”作为加载网页的 HTML 内容的长度。

提前致谢。

如何使用 Borland C++Builder 6.0 中的 TCppWebBrowser 组件访问网页上返回的数据？

我已成功使用以下示例发布数据： http: //edn.embarcadero.com/article/27519

我使用 delphi 7，我只想直接从 TWebBrowser 中显示的网页中提取网页中显示的文本（没有图像......）。可以做到吗？我该怎么做？

我找到了很多方法让 TWebBrowser 显示一个无模式的打印对话框，但是如何让它显示一个模式的呢？我想打印一个 html 页面，这就是我需要模态对话框的原因。

我真的很感激你对这个的想法。

谢谢！

背景：我的表单有一个 TWebBrowser。我想用 ESC 关闭表单，但 TWebBrowser 吃掉了击键 - 所以我决定使用键盘挂钩。

问题是表单可以同时在多个实例中打开。

无论我做什么，在某些情况下，如果我的表单打开了两个实例，关闭其中一个实例也会关闭另一个实例。

我附上了一些示例代码。关于导致问题的原因有什么想法吗？