Discussion :

[tourlourou]

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 !!!

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
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 !

[tourlourou]

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 !