如何在默认浏览器中打开铬浏览器链接的点击？

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;