Discussion :

[f5jcg_Lulu]

Bonjour,
Pour accéder à divers liens dans mon navigateur internet perso inclus dans mon application, j'ai un menu PopUp listant ces liens. Tout fonctionne bien.
Je désirerais à chaque lien ouvrir par un clic droit un menu contextuel "Ouvrir dans un nouvel onglet" comme dans les navigateurs commerciaux. Ce menu contextuel fera alors appel au code du bouton "+".
Voilà. Je livre ce problème à votre sagacité jamais prise en défaut
Merci. Cordialement

[ShaiLeTroll]

Suffit d'ajouter les TMenuItem dans le PopupMenu, il faut différencier celui pour le TPageControl et celui TTabSheet

[f5jcg_Lulu]

Voici le code que j'ai concocté (trop simple, peut-être ?) après votre réponse ShaiLeTroll. J'ai créé un sous-menu pour chaque lien.

Code :

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

1
2
3
4
5
procedure TBrowserFrame.mnOngletPlusClick(Sender: TObject);
begin
  MainForm.btnPlusClick(Self);
  WVBrowser1.Navigate('lien à lancer');
end;

Pourquoi MainForm.btnPLus... ? Parce les 2 boutons + et - sont sur MainForm, directement inspiré de la demo de WebBrowser. Mais là n'est pas le problème puisque la création d'un onglet fonctionne. Mais si un onglet est bien créé, la page se charge bien mais dans l'onglet précédent celui qui est créé mais pas dans celui qui est créé. Il y a toujours un décalage d'un onglet.

[ShaiLeTroll]

Je ne connais pas la démo mais je vois que tu utilises un "WVBrowser1" donc je suppose que ce n'est pas un TPageControl mais TTabControl qui est juste la partie onglet sans la partie conteneur, car sinon tu n'utiliserais pas un composant posé sur la fiche mais des objets générés à la volée

Il faut changer le PageIndex pour que l'index ajouté soit bien celui visible même si ce n'est qu'une illusion avec un TTabControl alors qu'avec un TPageControl cela implique une permutation de conteneur
D'ailleurs, n'avoir qu'un seul WVBrowser1 me choque, cela voudrait dire que cela recharge la page à chaque changement d'onglet ?

Pour ma part, j'aurais un tableau array of TWebBrowser ou un array of TWebSheet (une TForm ancrée contenant ce qu'il faut pour isoler le code d'une page au lieu d'avoir tout dans le main)

En réalité, invoquer "btnPlusClick" n'est pas une bonne pratique, mieux vaut faire une méthode réutilisable que btnPlusClick et mnOngletPlusClick utiliseront

[f5jcg_Lulu]

Non il y a bien un seul WVWebBrowser, un seul WVWindowsParent et il y a bien un PageControl dont les TabSheet sont générées dynamiquement par appui sur le bouton "+", ou supprimées par appui sur le bouton "-". On peut générer le nombre de TabSheet nécessaire. Je l'ai dit, tout ceci fonctionne parfaitement.
Si on veut voir la demo il faut installer WebView4Delphi. Très simple. Toute cette partie navigateur à onglets vient de la demo.