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.
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).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
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 ?
Partager