Discussion :

[Invité]

Bonjour

J ai un twebBroser et souhaiterais intercepter l url du lien cliqué pour pouvoir ouvrir la page dans le navigateur par defaut.

Est-ce possible ? Si oui comment proceder.

D avance merci pour vos conseils

[exoseven]

tu te branches sur l'évènement OnBeforeNavigation2 de ton TWebBrowser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm.BeforeNavigation2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
                                      Headers: OleVariant; var Cancel: WordBool);
begin
  // annuler la navigation dans le TWebBroser
  Cancel := true;
 // ouvrir le navigateur par défaut
 ShellExecute(Handle,'open',PChar(url),nil,nil, SW_SHOWNORMAL);
 
end;

[Invité]

merci pour ta réponse.