comment changer les tab d'un tpagecontrol ?

bonjour

donc voila, j'ai un TPageControl avec des TTabSheet

et je voudrai pouvoir changer les tabs dans une fonction (sans passer par un evenement)

Code:

---

1 2	pageControl->TabIndex = 1;

---

le tab change bien mais le TTabSheet ne s'affiche pas

Code:

---

1 2 3

pageControl->TabIndex = 1; pageControl->OnChange (this);

---

j'ai donc rajouter un appel a OnChange (sans avoir surchargé la fonction) et ca plante ...

j'ai donc virer l'appel a OnChange et j'ai mis la propriété Visible = true du tab

Code:

---

1 2 3

pageControl->TabIndex = 1; tab1->Visible = true;

---

ca marche :) mais dès que je joue avec les tabs (clic souris) ca merde :(

qu'est ce que je dois faire ??

merci de vos réponses

Réinstaller ton BCB ? :mrgreen:

Bon, sérieusement, as tu bien créé plusieurs TabSheet dans ton composant PageControl ?
ton premier bout de code est le bon, c'est bizard que ca plante, qu'entend tu part le TTabSheet ne s'affiche pas, as-tu bien passé des composant dans tes TabSheet qui te permette de faire la différence entre l'une et l'autre ?

yep

g inséré un TForm différent dans chaque TTabSheet, et j'ai 5 TTabSheet

ca marche nickel quand je clic sur les onglets

mais qd je change l'index dans une fonction, l'onglet choisi se "sélectionne" bien mais le TForm ne s'affiche pas, où plutôt, le TForm attaché à l'ancien TTabSheet reste affiché

g aussi surchargé la fonction OnShow () des TTabSheet, je sais pas si ca peut pauser problème ?

J'ai pensé surcharger la fonction OnChange () du tpagecontrol puis mettre un switch (TabIndex) et ensuite appeler l'évenemnet OnChange () dans ma fonction mais ca va pauser problème qd je v juste cliquer sur les onglets : il va appeler 2X l'évenement OnShow () des TTabSheet

donc je vois pas comment faire :evilred:

Tu y as mis un TForm ????
qu'elle est le but de mettre une fenêtre dans un onglet ?

parce que j'ai une chiée de composants à placer dans chaque Tab, et il y en a bcp qui se ressemble dans les différentes fenetres, donc pour les nomer, je me retrouve avec des noms à ralonge, en plus j'utilise d'autres tpagecontrol qui se servent ausi de ces TForm

ya juste a supprimer les bords du TForm et mettre son Parent = TTabSheet et ca marche nickel

Ce que tu me décrit la est plus l'utilisation d'une TFrame et non d'une TForm.
Une TFrame est justement une fenêtre sans bord que l'on place comme tu le fait dans plusieurs endroit comme sur une Form ou sur un TabSheet.

j'ai jamais utilisé les TFrame (faudrai peut etre que je m' y mette :P)

mais ca resout pas mon problème ... à moins que le probème vienne justement de là ....

Eh bien étant donnée que chez moi je n'ai pas de problème avec le TPageControle et le code

Code:

---

pageControl->TabIndex = 1;

---

soit ça vient de ton BCB qui est pourrit et que tu doit réinstaller, soit ça vient du composant TForm qui est dessus (a mon avis il y a de grande chance que ce soit ça :D)

bon ben je v changer toutes mes TForm en TFrame

ya du boulo

mais merci pour tes conseils

salut
j'ai le même problème, tu as trouvé une solution ?
merci