Discussion :

[ded jay]

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 :

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

1
2
 
pageControl->TabIndex = 1;

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

Code :

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

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 :

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

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

[pottiez]

Réinstaller ton BCB ?

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 ?

[ded jay]

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

[pottiez]

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

[ded jay]

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

[pottiez]

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.