Как переписать метод класса?

Question

Вот ceflib.pas код CEFLIB.PAS

Таким образом, в TCefRenderProcessHandlerOwn классе, объявил OnBeforeNavigation функцию.
Как мы видим, он возвращает False каждый раз и его плохо, потому что, если ссылка была открыта MouseWheelClick, она не откроет эту ссылку в новой вкладке, я хочу ее исправить.
Вопрос: Как переписать эту функцию?
TNX

Answer 1

Я никогда не использовал эту библиотеку, но он смотрит на меня, как вам нужно сделать следующее:

1. Определить класс, производный от TCefRenderProcessHandlerOwn.
2. Переопределите метод, который вас интересует в настройке. В этом случае OnBeforeNavigation.
3. Во время инициализации создайте экземпляр класса и назначьте его глобальной переменной CefRenderProcessHandler.

 

type 
    TMyRenderProcessHandler = class(TCefRenderProcessHandlerOwn) 
    protected 
    function OnBeforeNavigation(const browser: ICefBrowser; 
     const frame: ICefFrame; const request: ICefRequest; 
     navigationType: TCefNavigationType; isRedirect: Boolean): Boolean; 
     override; 
    end; 

function TMyRenderProcessHandler.OnBeforeNavigation(const browser: ICefBrowser; 
    const frame: ICefFrame; const request: ICefRequest; 
    navigationType: TCefNavigationType; isRedirect: Boolean): Boolean; 
begin 
    .... your code goes here 
end;  

initialization 
    CefRenderProcessHandler := TMyRenderProcessHandler.Create; 

Проект поставляется с демо-программ, иллюстрирующих эту технику. Я предлагаю вам изучить эти демоверсии, чтобы узнать больше об этом очень мощном компоненте.