Bonjour,

dans mon programme, je créée de TTabSheet de manière dynamique ansi qu'un TChart et un TPieSeries.
TTabSheet est parent du TChart qui est parent du TPieSeries.

Lorsque j'analyse des fichiers, cela génère un nombre aléatoire de TTabSheet, ...

Je voudrais que lorsque je relance la boucle, tous les composants créés soient "free", seulement voilà, les TTabSheet .create ne sont pas repris dans la liste des composants!
Existe t'il une autre solution pour utiliser le "free"?

Je vois bien la solution d'utiliser pagecount du pagecontrol parent, mais je me pose vraiment la question de pourquoi ils ne sont pas repris comme composants

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
        SetLength(TabArray,ChartNumber+1);
        TabArray[ChartNumber] := TTabSheet.Create(PgPrice);
        TabArray[ChartNumber].PageControl := PgPrice;
        TabArray[ChartNumber].Name := 'TbArray'+IntToStr(ChartNumber);
        TabArray[ChartNumber].Caption := IntToStr(ChartNumber) + ' - ' + IntToStr(TabArray[ChartNumber].ComponentIndex) + ' - ' + TabArray[ChartNumber].Name;