Discussion :

[f5jcg_Lulu]

Bonjour,
Je vous expose mon problème : j'ai un PageControl dans lequel je crée dynamiquement autant d'onglets que nécessaire. J'ai aussi 2 contrôles ( - et +) pour créer 1 onglet ou supprimer l'onglet actif. Tout cela fonctionne parfaitement.
Je souhaiterais maintenant que le contrôle - (moins) passe sur Disabled lorsqu'il ne reste plus qu'un onglet, pour que le dernier ne soit pas supprimé, et qu'il redevienne actif à partir de 2 onglets.
Merci pour votre aide.
Cordialement

[SergioMaster]

Bonjour,

je propose de coder les onclicks des boutons [-] [+]

Code rapide

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
procedure TForm8.ButtonMoinsClick(Sender: TObject);
begin
PageControl1.ActivePage.Free;
ButtonMoins.Enabled:=Pagecontrol1.PageCount>1;
Pagecontrol1.ActivePageIndex:=Pagecontrol1.PageCount-1;
end;
 
procedure TForm8.ButtonPlusClick(Sender: TObject);
begin
With TTabSheet.Create(Pagecontrol1) do
 begin
   PageControl:=Pagecontrol1;
   caption:='page '+Pagecontrol1.PageCount.ToString;
   ButtonMoins.Enabled:=Pagecontrol1.PageCount>1;
   Pagecontrol1.ActivePageIndex:=Pagecontrol1.PageCount-1;
 end;
end;

[f5jcg_Lulu]

Merci SergioMaster, ça fonctionne correctement après des adaptations à mon cas précis.
Cordialement

[f5jcg_Lulu]

Bonjour,
Comme dit dans le message précédent, tout fonctionne bien. Néanmoins il y a un cas particulier. J'utilise le PageControl comme un navigateur internet interne à une application.
Mes favoris sont stockés dans un PopUp. Aucun problème lorsque j'appelle des sites depuis le PopUp. Cependant, lorsque je charge un site dans le 1er onglet et que je lance un lien depuis ce site, il se crée bien un 2e onglet mais le contrôle "-" reste désactivé.
Cela dit, le cas se présentant peu, je ne suis pas sûr que cela vaille vraiment la peine de se creuser le crâne, sauf pour la beauté du geste.
Cordialement

[SergioMaster]

Bonjour,

Il faudrait certainement voir un peu plus de code sur ta création d'onglet et voir le traitement fait en cas de lancement de lien

[f5jcg_Lulu]

Bonjour,
Certes, cela serait nécessaire de voir le code mais il vient d'une démo fournie avec les composants WebView4Delphi, ce qui veut dire les installer pour faire fonctionner la démo. Comme mon problème n'en est vraiment pas un, je laisse tomber, d'autant plus que ce cas est rarissime et que j'ai trouvé la parade : j'ouvre un 3e onglet pour activer le contrôle '-' et là je fais ce que je veux.
Merci en tout cas. A bientôt pour de nouvelles aventures !
Cordialement

[SergioMaster]

lorsque je charge un site dans le 1er onglet et que je lance un lien depuis ce site, il se crée bien un 2e onglet

une démo fournie avec les composants WebView4Delphi

oui, je me disais bien aussi, "comment il intercepte le lancement du lien ?"

[f5jcg_Lulu]

Bonjour,
Voilà, j'ai trouvé la solution. Je me suis dis : il faut que le contrôle btnMoins s'active quand un 2e onglet est créé depuis un lien interne du site affiché dans le 1er onglet. J'ai donc regardé le code en détail, notamment pour tout ce qui crée un onglet. Donc c'est dans le Constructeur de Frame qu'il fallait aller voir et j'ai juste rajouté une instruction comme ci-dessous en rouge :

Code :

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

1
2
3
4
5
6
7
8
9
constructor TBrowserFrame.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  FHomepage              := '';
  FOnBrowserTitleChange  := nil;
  if BrowserPageCtrl.PageCount = 2 then
    btnMoins.Enabled := True;
end;

Et ça fonctionne parfaitement, le btnMoins s'active ou se désactive lorsque c'est nécessaire, sans perturber la création ou la suppression d'autres pages supplémentaires.
Bon WE à tous.
Cordialement

[popo]

Bonjour,
Voilà, j'ai trouvé la solution. Je me suis dis : il faut que le contrôle btnMoins s'active quand un 2e onglet est créé depuis un lien interne du site affiché dans le 1er onglet. J'ai donc regardé le code en détail, notamment pour tout ce qui crée un onglet. Donc c'est dans le Constructeur de Frame qu'il fallait aller voir et j'ai juste rajouté une instruction comme ci-dessous en rouge :

Code :

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

1
2
3
4
5
6
7
8
9
constructor TBrowserFrame.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  FHomepage              := '';
  FOnBrowserTitleChange  := nil;
  if BrowserPageCtrl.PageCount = 2 then
    btnMoins.Enabled := True;
end;

Et ça fonctionne parfaitement, le btnMoins s'active ou se désactive lorsque c'est nécessaire, sans perturber la création ou la suppression d'autres pages supplémentaires.
Bon WE à tous.
Cordialement

Attention, le conteneur est sensé connaître son contenu, pas l'inverse.