TChromium как заблокировать среднюю кнопку мыши по ссылкам?

Question

Как заблокировать средний щелчок мышью по ссылкам в TChromium?
Я хочу обработать этот средний щелчок мышью, чтобы открыть его на новой вкладке, поэтому мне нужно заблокировать этот средний щелчок мыши в TChromium, а затем переместить среднюю мышь, а затем открыть выбранную ссылку на новой вкладке.
У меня есть функция это по умолчанию:

function TCustomRenderProcessHandler.OnBeforeNavigation(const browser: ICefBrowser; 
    const frame: ICefFrame; const request: ICefRequest; 
    navigationType: TCefNavigationType; isRedirect: Boolean): Boolean; 
begin 
    Result:=False; 
end; 

Но именно это ничего не дает.
TNX

Answer 1

Я сделал это по-другому.
@TLama, спасибо за быструю работу.
Итак, как я сделал это:

//@HOOK PROC 
    function MouseProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; 
    var 
     HookStruct: TMouseHookStruct; 
    begin 
     HookStruct := PMouseHookStruct(lParam)^; 

     if (nCode >= 0) then 
     begin 
     case wParam of 
      WM_MBUTTONDOWN: 
      Begin 
       MiddleDown := True; 
       LeftMouse := False; 
      End; 

      WM_LBUTTONDOWN: 
      Begin 
       MiddleDown := False; 
       LeftMouse := True; 
      End; 

      WM_RBUTTONDOWN: 
      Begin 
       MiddleDown := False; 
       LeftMouse := False; 
      End; 
     end; 
     end; 

     Result := CallNextHookEx(0, nCode, wParam, lParam); 
    end; 

    procedure TForm1.Timer1Timer(Sender: TObject); 
    begin 
     If(MiddleDown) then 
     Begin 
      MiddleDown:=False; 
      If(SelectedItem<>'') Then 
      Form1.AddNewTab(SelectedItem,SelectedItem,''); 
     End 
     Else If(LeftMouse) then 
     Begin 
      LeftMouse:=False; 
      If(SelectedItem<>'') Then 
      FBrowsers[Current_FBrowser_Index].Load(SelectedItem); 
     End; 
    end; 

function TCustomRenderProcessHandler.OnBeforeNavigation(const browser: ICefBrowser; 
    const frame: ICefFrame; const request: ICefRequest; 
    navigationType: TCefNavigationType; isRedirect: Boolean): Boolean; 
begin 

    if navigationType = NAVIGATION_LINK_CLICKED then 
    begin 
    Result := True; 
    end 
    else 
    Result := False; 
end; 

Итак, вот как это работает в моем DCEF3 :)
Спасибо всем за помощь !!!