如何在默認瀏覽器中打開鉻瀏覽器鏈接的點擊？

Question

我想要實現，當用戶點擊TChromium瀏覽器頁面內的超鏈接時，新頁面將在其默認瀏覽器中打開。

Answer 1

在如果navType參數等於NAVTYPE_LINKCLICKED並且如果是這樣的OnBeforeBrowse事件檢查，返回True到Result參數（這將取消對鉻的請求），並調用例如ShellExecute傳遞request.Url值在用戶的默認瀏覽器中打開鏈接：

uses 
    ShellAPI, ceflib; 

procedure TForm1.Chromium1BeforeBrowse(Sender: TObject; 
    const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; 
    navType: TCefHandlerNavtype; isRedirect: boolean; out Result: Boolean); 
begin 
    if navType = NAVTYPE_LINKCLICKED then 
    begin 
    Result := True; 
    ShellExecuteW(0, nil, PWideChar(request.Url), nil, nil, SW_SHOWNORMAL); 
    end; 
end; 

Answer 2

在CEF3，navType = NAVTYPE_LINKCLICKED不再可能在OnBeforeBrowse事件，如TLama的答案。相反，我發現瞭如何檢測到這種使用TransitionType財產...

procedure TfrmEditor.BrowserBeforeBrowse(Sender: TObject; 
    const browser: ICefBrowser; const frame: ICefFrame; 
    const request: ICefRequest; isRedirect: Boolean; out Result: Boolean); 
begin 
    case Request.TransitionType of 
    TT_LINK: begin 
     // User clicked on link, launch URL... 
     ShellExecuteW(0, nil, PWideChar(Request.Url), nil, nil, SW_SHOWNORMAL); 
     Result:= True; 
    end; 
    TT_EXPLICIT: begin 
     // Source is some other "explicit" navigation action such as creating a new 
     // browser or using the LoadURL function. This is also the default value 
     // for navigations where the actual type is unknown. Do nothing. 
    end; 
    end; 
end;