delphi - 更新后的 TWebBrowser 现在从一开始就实现了 IDocUIHandler，我如何继续使用我的自定义实现？

Question

从 Delphi 10.0 Seattle 开始，Embarcadero 更改了 TWebBrowser 控件的实现:

西雅图预赛:TWebBrowser = class(TOleControl)

西雅图+:TWebBrowser = 类(TOleControl、IDocHostUIHandler、IDocHostShowUI、IOleCommandTarget)

我运行了一些旧代码，其中我实现了一个可以注册为 TWebBrowser 的客户端站点/主机的类，其中我提供了自己的 IDocHostUIHandler 实现界面。

由于 TWebBrowser 现在从一开始就实现了这些(并保持它们的私有(private)性)，并且据我所知很难下降 - 我如何才能获得新的 TWebBrowser 组件重新注册 在哪里可以找到 IDocHostUIHandler 的实现？

Answer 1

您可以从 TWebBrowser 继承并像以前一样提供您自己的接口(interface)定义，如下所示:

Type
  TMyWebBrower = class( TWebBrowser, IDocHostUIHandler )
  ...
  end;

这告诉 Delphi 您正在重新实现 IDocHostUIHandler 接口(interface)。您必须提供该接口(interface)的所有功能，但您已经拥有了。