Discussion :

[MacPro]

Bonjour, j'ai un petit problème :

Sur ma fiche il y a un TPageControl dans lequel j'ajoute dynamiquement des TTabSheet (j'en ajoute à la volée, le nombre n'est pas déterminé).
Dans ce TTabSheet, je veux insérer un ComboBox dynamiquement, et dans ce ComboBox je veux ajouter des items ... dynamiquement encore.
Le TPageControl n'est pas dynamique, il est posé sur la fiche.

Voilà ce à quoi ça ressemble pour le moment :

Code :

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

TPageControl * PageControlY; // Composant géré par l'EDI

Code :

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

1
2
3
4
5
6
7
 
TTabSheet *New_Tab = new TTabSheet(PageControlY); // Nouvel onglet
TComboBox *Combo_Valeurs = new TComboBox(new_tab); // Nouvelle ComboBox
Combo_Valeurs->Parent = new_tab;
 
// Ensuite, ajout d'un item dans la ComboBox
Combo_Valeurs->AddItem("Axe 1", NULL /* Je sais pas ce qu'il veut en second paramètre ! */);

La compilation se fait sans problème.
A l'execution, (admettons que c'est un bouton qui execute l'ajout du tabshett et du combox), ça plante dès que ça arrive sur le AddItem.
Le message d'erreur est le suivant :

Le projet "MonProjet.exe" a provoqué une classe d'exception EInvalidOperation avec le message 'Le contrôle " n'a pas de fenêtre parente'. Processus Stoppé. Utilisez Pas à pas ou exécuter pour continuer.

L'aide de borland sur le AddItem indique :

Appelez AddItem pour ajouter une chaîne et son objet associé à la liste déroulante.

Item représente la chaîne à ajouter à la liste déroulante.

AObject est un objet associé à cette chaîne. Pour y accéder, utilisez la propriété Objects de l'objet TStrings qui implémente la propriété Items.

Voilà, que dois-je faire ? Je ne sais pas quel TObject il veut. J'ai essayé 'this (soit le TPageControl) mais il n'en veut pas...

[Sunchaser]

Bonjour,

Si tu veux ajouter uniquement des chaines dans tes Combobox, tu devrais essayer uniquement par qqchose comme:

Code :

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

1
2
 
Combo_Valeurs->Items->Add(//string);

@+

[henderson]

Salut !

Il faudrait faire comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
TTabSheet *Tab = new TTabSheet(this);
Tab->PageControl = PageControl1;
TComboBox *ComboBox = new TComboBox(this);
ComboBox->Parent = Tab;
//ComboBox->SetBounds(..., ..., ..., ...);
ComboBox->Items->Add("Bla bla bla");
//...
ComboBox->ItemIndex = 0;

A plus !

[MacPro]

Bonjour,

Si tu veux ajouter uniquement des chaines dans tes Combobox, tu devrais essayer uniquement par qqchose comme:

Code :

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

1
2
 
Combo_Valeurs->Items->Add(//string);

@+

J'avais oublié de dire que j'avais essayé cette solution et que ça ne marchait pas.

[MacPro]

Salut !

Il faudrait faire comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
TTabSheet *Tab = new TTabSheet(this);
Tab->PageControl = PageControl1;
TComboBox *ComboBox = new TComboBox(this);
ComboBox->Parent = Tab;
//ComboBox->SetBounds(..., ..., ..., ...);
ComboBox->Items->Add("Bla bla bla");
//...
ComboBox->ItemIndex = 0;

A plus !

PARFAIT ! J'adore ce forum, il suffit de bien écrire lisiblement son problème et hop, tout est nickel.

J'ai fait comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TTabSheet * New_Tab = new TTabSheet(this);
        New_Tab->PageControl = PageControl1;
 
        TComboBox * New_ComboBox = new TComboBox(this);
        New_ComboBox->Parent = New_Tab;
        New_ComboBox->Align = alBottom; // Pour remplacer le SetBounds(..., ..., ..., ...) 
        New_ComboBox->Items->Add("Test");
        New_ComboBox->Items->Add("de trois");
        New_ComboBox->Items->Add("items");
        New_ComboBox->ItemIndex = 0;
}

Ce que j'aimerais savoir c'est pourquoi le owner est systématiquement le this ? Sachant que this est la fiche, est-ce que c'est pour permettre de publier le composant sur la fiche ?
Visiblement, d'après le message d'erreur, on dirait que tous les contrôles doivent avoir une fenêtre parente, et c'est seulement par la suite qu'on leur affecte un parent, je me trompe ?
Je ne comprends pas pourquoi ça ne serait pas plutôt :

Code :

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

TTabSheet * New_Tab = new TTabSheet(PageControl1);

Code :

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

TComboBox * New_ComboBox = new TComboBox(New_Tab);

Et enfin, dernière question, pourquoi dans le cas :

Code :

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

New_Tab->PageControl = PageControl1;

on n'appelle pas directement le constructeur de la manière suivante ? :

Code :

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

TTabSheet * New_Tab = new TTabSheet(PageControl);

[henderson]

Salut !

Tu as raison !
En fait, l'owner qui est passé dans le constructeur est celui qui est le plus en adéquation avec la destruction des objets.
Si par exemple on a une destruction du TabSheet dans ce cas on a intérêt aussi à ce que le ComboBox soit détruit avec (on peut étendre à l'ensemble des composants dont le TabSheet est le Parent)!
Donc tous tes owners tiennent la route.

L'owner ne fait rien d'autre que d'être propriétaire du composant en l'ajoutant à sa liste Components.

Pour ce qui est de la propriété TTabSheet::PageControl.
Lorsque l'on affecte un TPageControl* à cette propriété, c'est un ensemble d'actions qui sont déclenchées :
- le pointeur est affecté à la propriété
- le TabSheet est enregistré dans la liste des Pages du PageControl (TPageControl::Pages)
- le TabSheet se voit affecté le PageControl comme Parent.
Il y a fort à parier d'ailleurs que la gestion graphique des TabSheet par le PageControl lui soit propre (on s'en doute un peu !!!) !

En fait, c'était la seule ligne qui manquait dans ton code (je n'avais pas réfléchi au delà de mon propre test).

A plus !

[henderson]

Salut !

Juste pour montrer que le Setter de la propriété PageControl de TTabSheet est encore plus puissant qu'on le pense :

Sur une form : PageControl1 avec un TabSheet et PageControl2 sans TabSheet et un SpeedButton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
if(PageControl1->ActivePage != NULL)
    {
    TTabSheet *Tab = PageControl1->ActivePage;
    Tab->PageControl = PageControl2;
    }
else
    {
    TTabSheet *Tab = PageControl2->ActivePage;
    Tab->PageControl = PageControl1;
    }
}

Puisqu'à l'évidence, il teste aussi si PageControl pointe sur un objet avant d'assigner le pointeur et si c'est le cas il le fait disparaître du PageControl initial pour le donner au nouveau PageControl !

A plus !