Décalage de cellules ?

Bonjour,

Je souhaite aligner des ComboBox (stockés dans une liste) sur des cellules d'une StringGrid que je redimensionne en fonction de la largeur des ComboBox.

Au final, les CombosBox sont alignées à gauche sur la disposition des cellules avant redimensionnement !!!

Pièce jointe 92053

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

j:=0; for i:=1 to colsCriteres-1 do begin Inc(j); if CritList.Items[j] is TComboBox then with TComboBox(CritList.Items[j]) do begin   sgCriteres.ColWidths[j]:=Width;   Left:=sgCriteres.CellRect(j, 0).Left;   Top:=sgCriteres.CellRect(j, 1).Bottom; Visible:=True;   end; end;

---

Je suis passé par un j intermédiaire pour éliminer une boucle à l'envers, et un
Application.ProcessMessages; ne règle pas le problème.

Je sèche, merci pour vos idées !

Bon, finalement, CellRect n'est pas recalculé avec ce code placé dans le FormCreate ; en le plaçant après affichage de la fiche, j'obtiens bien le résultat attendu !