Creation dynamic de TabSheet

Version imprimable

02/10/2007, 11h34
saidus

Creation dynamic de TabSheet
Bonjour!!!
Pour Creer un nouveau TabSheet en RunTime j'ecris le code sur le Click d'un TButton:
Code:

1 2 3 4 TTabSheet *t = new TTabSheet(PageControl1); t->PageControl = PageControl1; .....
et ca marche a merveille ...
maintenant le Pblm est de Comment Fermer un TabSheet quelconque et en liberant la memoire allouer pour ...
j'utilise le code avec :

Code:

delete t;

mais bien sur ca ne peux pas marcher
Alors ... pourrai je avoir ce code ...
Merci d'avance ...

Ne faudrait-il pas écrire :
Code:

1 2 3 TTabSheet *t = new TTabSheet(this); t->PageControl = PageControl1;

02/10/2007, 13h25
saidus
Bonjour ...
Que faut il faire alors ..
j'ai essayer le Code :
Code:

1 2 3 TTabSheet *tb = new TTabSheet(PageControl1/*this*/); tb->PageControl = PageControl1;
et ca marche, a chaque fois que je clic sur le Btn qui execute le code precedant il ya une nouvelle Tabsheet qui ce Cree..
Maintenant le Probleme pour moi est de Fermer (Close) une TabSheet quelconque (qu'on veux) comment faut il faire
02/10/2007, 13h31
Sunchaser
Bonjour,

Perso, je pense que tu devrais essayer de spécifier un 'Name' particulier (et unique évidemment) pour chaque TTabSheet crée.
Ainsi, on pourrait imaginer qqchose comme:
Code:

1 2 TTabSheet *ts = dynamic_cast < TTabSheet*> (this->FindComponent("Name_du_TTabSheet"));
Et ainsi, faire ce que tu veux avec l'objet ainsi récupéré ...

A tester et corriger car je ne suis pas dans l'EDI la ...

Pour la conception, je suivrais ce que préconise Pasqualini

Bon courage,
@+ ;)

Salut saidus:
J'ai fait simplement ceci
Code:

1 2 3 4 5 void __fastcall TForm1::Button1Click(TObject *Sender) { TabSheet1->~TTabSheet(); }

Salut !

Avec un TPageControl, pour ajouter un TTabSheet :

Code:

1
2
3
4
 
TTabSheet *T = new TTabSheet(this);
T->PageControl = PageControl1;
PageControl1->ActivePage = T;

Pour supprimer la page active :

Code:

1
2
3
4
5
6
7
 
if(PageControl1->ActivePage != NULL)
    {
    delete PageControl1->ActivePage;
    if(PageControl1->PageCount == 0) PageControl1->ActivePage = NULL;
    else PageControl1->ActivePage = PageControl1->Pages[PageControl1->PageCount-1];
    }

Pour suprimer n'importe quelle page :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
int Page = 2; // pour l'exemple
if((Page >= 0) && (Page < PageControl1->PageCount))
    {
    delete PageControl1->Pages[Page];
    //Ici, on va activer la page qui suit celle qui a été supprimée
    if(Page != PageControl1->PageCount)
        {
        PageControl1->ActivePage = PageControl1->Pages[Page];
        }
    else
        {
        //Comme la page était la dernière,
        //on cherche à activer la page qui précéde celle qui a été supprimée
        if(PageControl1->PageCount != 0)
            {
            PageControl1->ActivePage = PageControl1->Pages[Page-1];
            }
        else
            {
            PageControl1->ActivePage = NULL;
            }
        }
    }

Pour l'ensemble des cas, on peut évidemment mettre en place un protocole d'activation différent.

A plus !

05/10/2007, 12h27
bandit boy

Salut,
j'ajoute juste une précision, un composant ne peut pas se "sucider", c'est a dire que le delete du TTabSheet ne peut pas être situé dans le code de ce TTabSheet ou d'un composant lui appartenant.