Problème avec New Delete TComponentList
bjr
j'ai condé une fonction permettant de positionner des TControl dans un TPanel. Pour ce faire je place les composants à positionner dans un TComponentList que j'alloue et libère ensuite.
Code:
1
2
3
4
5
6
7
8
9
| TComponentList * List;
List=new TComponentList;
List->OwnsObjects=false;
List->Add(EdSearchNom);
List->Add(EdSearchPrenom);
AutoCrossControl(List,PnlTop,1,0.9,Rect(50,10,PnlTop->Width/2,10));
List->Clear();
delete List; |
La fonction AutoCrossControl exécute des écritures dans les propriétés Left et Top des composants (en plus de la lecture d'autres propriétés).
Cela fonctionne mais quand je quitte l'application j'ai une exception qui n'est pas toujours la même mais qui laisse à penser que les destructeurs de formes sont perturbés.
Mon code est il en apparence conforme ?
Quelqu'un aurait il idée du problème ?
