Bonjour,
J'ai créé un objet (TCustomControl) dans lequel je place d'autres "petits" objets, ils ont une place bien définit par rapport au parent. C'est à dire qu'un "petit" objet peut ce trouver à 1/8 du début, l'autre à 1/2 l'autre au 1/10 leur nombre et leur place sont fonction de l'utilisateur.
Mes objets ce placent comme il faut mais quand je redimentionne le parent tout fonctionne correctement mais le positionnement de tous les petits objet est long, trop long
Voici mon code (je place dans un tableau la liste des composants créés) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 var y : integer; begin y:=1; while (Sous_periodes.cells[9,y]<>'') and (Sous_periodes.cells[6,y]='Visible') do begin with (components[strtoint(Sous_periodes.cells[9,y])] as TSousPeriode) do begin left:=Position_sur_ligne(Sous_periodes.cells[2,y]); width:=Position_sur_ligne(Sous_periodes.cells[3,y])-Position_sur_ligne(Sous_periodes.cells[2,y]); end; inc(y); end; end;
La question est : Y a t'il une méthode pour que le repostionnement des sous objets se fasse plus rapidement.
J'espère avoir été claire et je vous remerci pour vos conseils
Partager