TChromium 링크에서 중간 마우스 클릭을 차단하는 방법?

Question

TChromium의 링크를 마우스 가운데 클릭하는 것을 차단하는 방법은 무엇입니까?
중간 마우스를 클릭하여 새 탭에서 열려면 Ctrl 키를 누른 채 중간 마우스를 누른 다음 새 탭에서 선택한 링크를여십시오.
나는이 기본 기능이 있습니다

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, 빠른 작업 후크 기능을 이용해 주셔서 감사합니다.
그래서, 내가 그것을 어떻게했는지 : 내 DCEF3 :) 도움 모든
감사에서 작동하는 방법 그래서

//@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; 

을 먹으 렴!