Discussion :

[saidus]

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

Code :

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

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 :

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

delete t;

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

[Pasqualini]

Ne faudrait-il pas écrire :

Code :

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

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

[saidus]

Bonjour ...
Que faut il faire alors ..
j'ai essayer le Code :

Code :

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

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

[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 :

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

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,
@+

[blondelle]

Salut saidus:
J'ai fait simplement ceci

Code :

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

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

[henderson]

Salut !

Avec un TPageControl, pour ajouter un TTabSheet :

Code :

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

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

Pour supprimer la page active :

Code :

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

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 :

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
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 !

[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.