1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
| var
i,j : integer;
begin
StringGrid1.ColCount := 0;
//Création de la Col gsFixed
StringGrid1.Columns.add; //<-- Obligatoire sinon Erreur lors ligne suivante
StringGrid1.FixedCols := 1;
//Création des lignes
StringGrid1.RowCount := 5; //5 lignes dont une gsFixed
StringGrid1.FixedRows := 1;
//Création des colonnes "actives"
StringGrid1.Columns.add; //<-- Pourquoi 3 add alors que je crée 4 colonnes ?
StringGrid1.Columns.add;
StringGrid1.Columns.add;
//StringGrid1.Columns.add; --> Crée une colonne supplémentaire inutile ?!
//Titre des colonnes
for i := 0 to 3 do
StringGrid1.Columns[i].Title.Caption := 'Col' + IntToStr(i);
//Remplissage des cellules
for i := 0 to 4 do
for j := 1 to 4 do
StringGrid1.Cells[i,j] := 'Cells[' + IntToStr(i) + ',' + IntToStr(j)+']';
StringGrid2.ColCount := 0;
//Création de la Col gsFixed
StringGrid2.Columns.add;
StringGrid2.FixedCols := 1;
//Création des lignes
StringGrid2.RowCount := 5; //5 lignes dont une gsFixed
StringGrid2.FixedRows := 1;
//Création des colonnes "actives"
StringGrid2.Columns.add;
StringGrid2.Columns.add;
StringGrid2.Columns.add;
//StringGrid2.Columns.add;
//Titre des colonnes
for i := 0 to 3 do
StringGrid2.Columns[i].Title.Caption := 'Col' + IntToStr(i);
//Remplissage des cellules
for i := 0 to 4 do
for j := 1 to 4 do
StringGrid2.Cells[i,j] := 'Cells[' + IntToStr(i) + ',' + InTtoStr(j)+ ']';
//Rendre Columns[2] invisible
StringGrid2.Columns[2].Visible := false;
//Edition sur la colonne invisible
Showmessage('StringGrid2:' + StringGrid2.Columns[2].Title.Caption + #10 +
StringGrid2.Cols[2-1].Text); !!! OK
end; |
Partager