Creation dynamique d'un Item dans ComboBox dynamique dans TTabSheet dynamique

Version imprimable

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:

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

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 :

Citation:

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 :

Citation:

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

28/02/2008, 16h00
Sunchaser
Bonjour,

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

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

Salut !

Il faudrait faire comme ça :

Code:

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 !

28/02/2008, 16h29
MacPro
Citation:
Envoyé par Sunchaser

Bonjour,

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

Code:

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

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

Citation:
Envoyé par henderson
Salut !

Il faudrait faire comme ça :
Code:

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:

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:

TTabSheet * New_Tab = new TTabSheet(PageControl1);

Code:

TComboBox * New_ComboBox = new TComboBox(New_Tab);

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

Code:

New_Tab->PageControl = PageControl1;

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

Code:

TTabSheet * New_Tab = new TTabSheet(PageControl);

28/02/2008, 18h30
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 !

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:

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 !