Comment faire un clic sur un lien du navigateur Chrome ouvert dans le navigateur par défaut?

Question

Je veux y parvenir lorsqu'un utilisateur clique sur un lien hypertexte dans une page de navigateur TChromium, la nouvelle page s'ouvre dans son navigateur par défaut.

Answer 1

Dans le contrôle des événements OnBeforeBrowse si le paramètre est égal à navTypeNAVTYPE_LINKCLICKED et si oui, vrai retour au paramètre Result (qui annulera la demande de chrome) et appellent par exemple ShellExecute passer la valeur request.Url pour ouvrir le lien dans le navigateur par défaut de l'utilisateur:

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

En CeF3, navType = NAVTYPE_LINKCLICKED n'est plus possible en cas OnBeforeBrowse, comme dans la réponse de TLama. Au lieu de cela, j'ai découvert comment détecter cette propriété en utilisant la 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;