Обновленный TWebBrowser теперь реализует IDocUIHandler с самого начала, как я могу продолжать использовать свою пользовательскую реализацию?

Question

Начиная с Delphi 10.0 Сиэтл, Embarcadero изменил реализацию TWebBrowser управления:

Pre-Сиэтл: TWebBrowser = class(TOleControl)

Сиэтл +: TWebBrowser = class(TOleControl, IDocHostUIHandler, IDocHostShowUI, IOleCommandTarget)

У меня есть несколько старый код работает, где я реализовал класс который мог бы зарегистрироваться как клиентский сайт/хост для TWebBrowser, где я представил свою собственную реализацию интерфейса IDocHostUIHandler.

Поскольку TWebBrowser теперь реализует их с самого начала (и сохраняет их в тайне) и трудно спуститься из-за всех, что я знаю - как я собираюсь получить новый компонент TWebBrowser, чтобы перерегистрировать, где найти реализация для IDocHostUIHandler?

Answer 1

Вы можете спуститься с TWebBrowser и предоставить свои собственные определения интерфейсов, как и прежде, как это:

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

Это говорит Delphi, что вы переопределение интерфейса IDocHostUIHandler. Вы должны предоставить все функции для интерфейса, но у вас уже есть это.