Discussion :

[davels]

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;

[Clorish]

PArce que ce sont des Controls
Normalement on doti les retrouver dans la liste des controls.

Sinon , si tu cree tes TTabSheet avec le page control comme owner, a la liberation du page control, tous les tabsheet sont liberee, de meme que les composants qui sont dessus, si le tabsheet est le owner des compos qui lui sont cree dessus.

[J-P-B]

Essaye avec PgPrice.ControlCount et PgPrice.Controls[i]

[davels]

Merci pour la rectification, je pensais que c'était un composant

Je parcours le nombre de page dans mon page control et quand celle ci porte un nom spécifique, j'applique free.
Ca fonctionnne nickel