Discussion :

[krokmitaine]

Bonjour tout le monde,
Je dois intégrer dans une application une sorte de navigateur web avec système d'onglets. Bien sûr je crée dynamiquement des TTabSheet contenant des TWebBrowser. Je dispose d'une page html spéciale (toujours la première) crée elle aussi dynamiquement qui ne contient que des liens vers d'autres sites. Je voudrais que quand on clique sur un des liens de cette première page, la nouvelle page s'ouvre dans un nouvel onglet. A votre avis est-ce faisable ? Et si oui, auriez-vous une piste à me conseiller ?
Merci par avance

[Dunsany]

Bonjour,

Le TWebBrowser dispose d'un évènement OnBeforeNavigate2. Au moment où tu cliques sur un lien, tu peux transmettre l'URL à ton second TWebBrowser via cet event.

[krokmitaine]

Merci Dunsany c'est impec. Maintenant tu saurais sur quelle procédure je dois agir pour empecher ma première de changer ? En fait pour l'instant j'arrive à charger ma nouvelle page dans un nouvel onglet mais la première page aussi change.

[krokmitaine]

Je me permets de relancer le sujet (c'est mon ultime tentative après quoi promis j'arrête ) car je n'arrive toujours pas à ouvrir une nouvelle page web dans un onglet sans pour autant que ma page courante reste inchangée.
Merci d'avance

[Lung]

Dans un de mes projets, j'avais fait comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
   //.Parcours de la liste.
   for i:=0 to(_ListePage.Count-1) do
   begin
      //.Si page à activer.
      if(_ListePage[i] as TWebBrowser).Tag = nNumPage then
      begin
         (_ListePage[i] as TWebBrowser).OnBeforeNavigate2 := _BeforeNavigate2;
         (_ListePage[i] as TWebBrowser).OnDownloadBegin := _DownloadBegin;
         (_ListePage[i] as TWebBrowser).OnDownloadComplete := _DownloadComplete;
         (_ListePage[i] as TWebBrowser).OnProgressChange := _ProgressChange;
         (_ListePage[i] as TWebBrowser).OnTitleChange := _TitleChange;
         (_ListePage[i] as TWebBrowser).Visible := True;
         (_ListePage[i] as TWebBrowser).BringToFront;
         _nPageCourante := nNumPage;
      end
      else      //.Autre page.
      begin
         (_ListePage[i] as TWebBrowser).OnBeforeNavigate2 := nil;
         (_ListePage[i] as TWebBrowser).OnDownloadBegin := nil;
         (_ListePage[i] as TWebBrowser).OnDownloadComplete := nil;
         (_ListePage[i] as TWebBrowser).OnProgressChange := nil;
         (_ListePage[i] as TWebBrowser).OnTitleChange := nil;
         (_ListePage[i] as TWebBrowser).Visible := False;
         (_ListePage[i] as TWebBrowser).SendToBack;
      end;
   end;

J'avais désactivé les évènements des autres WebBrowser.

[krokmitaine]

Merci Lung, j'essayerai ça ce soir et je te dis.

Par contre tu peux juste me dire où est-ce qu'il faut que je mette ta procédure ?

++