Discussion :

[akabane]

Bonjour,

Je travaille actuellement sur un projet utilisant un TPageControl avec plusieurs onglets contenant chacun un TWebBrowser.

Afin de récupérer le TWebBrowser actif j'utilise pour l'instant la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
function TForm1.GetActiveBrowser: TWebBrowser;
var
  I: integer;
begin
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TWebBrowser) and (Components[i].GetParentComponent = PageControl1.ActivePage) then
      Result := Components[i] as TWebBrowser;
end;

Cette fonction parcours tous les composants de la form et renvoie le TWebBrowser actif. Elle fonctionne mais est à mon avis par très éfficace ...

Je voudrais en effet l'améliorer en récupérant directement les enfants de la page active (au lieu de comparer les parents).

Pour résumer je cherche une fonction du genre : PageControl1.ActivePage.GetChildrenComponent qui me retournerais les enfants de la page active, mais je sais pas si cela existe ...

Si vous connaissez un autre moyen de faire, merci de me le faire savoir.

[cadetill]

Salut

Tu peux utiliser.....

Code :

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

PageControl1.ActivePage.ComponentCount

et

Code :

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

PageControl1.ActivePage.Components

A+

[akabane]

Le problème est que PageControl1.ActivePage.ComponentCount renvoie 0, alors que la page contient bien un TWebBrowser ...

Voici comment en gros comment j'ajoute les onglets si cela peut aider:

Code :

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

1
2
3
4
5
Tab := TTabSheet.Create(self) ;
Tab.PageControl := PageControl1;
WebBrowser := TWebBrowser.create(self);
TWinControl(WebBrowser).Parent := Tab;
TControl(WebBrowser).Parent := Tab;

[cmen76]

essaye avec ControlCount et Controls[index]

[akabane]

J'ai trouvé

En fait lors de la création de mes objets je spécifiais mal les owners, d'où un ComponentCount de 0.

Voici le morceau de code corrigé pour la création :

Code :

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

1
2
3
4
5
6
 
Tab := TTabSheet.Create(PageControl1) ;
Tab.PageControl := PageControl1;
WebBrowser := TWebBrowser.create(Tab);
TWinControl(WebBrowser).Parent := Tab;
TControl(WebBrowser).Parent := Tab;

Et pour récupérer le TWebBrowser actif:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function TForm1.GetActiveBrowser: TWebBrowser;
var
  i: integer;
begin
  Result := nil;
  for i := 0 to PageControl1.ActivePage.ComponentCount do
    if (PageControl1.ActivePage.Components[i] is TWebBrowser) then
    begin
      Result := (PageControl1.ActivePage.Components[i] as TWebBrowser);
      break;
    end;
end;

Merci pour vos réponses qui m'ont permies de m'orienter vers la solution !