comment désactiver des cellules dans un stringgrid

bonjour tout le monde

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm2.table1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); begin   if (Acol=0)or (Acol=1)or(Acol=3) or(Acol=4)or(Arow<lig) then   table1.Options:=table1.Options-[goEditing] //désactive l'édition   else   table1.Options:=table1.Options+[goEditing]; end;

---

ce que je veux faire c'est de ne permettre que l'édition de la colonne de Stringgrid
et dans la colonne 2 seulement les lignes de numéro inférieur à lig ne peuvent pas être éditer

Bonjour,

je n'ai pas bien compris ta condition, mais tu dois utiliser l'évènement OnSelectCell de la grille :

Code:

---

1 2 3 4 5 6 7 8 9

Procedure TForm1.Table1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); Begin If ((ACol = 2) And (ARow < Ligne)) Then Table1.Options := Table1.Options+[goEditing] Else Table1.Options := Table1.Options-[goEditing] ; CanSelect := True; End;

---

@+

Charly

salut

la méthode Onselectcell est parfaite pour empêcher
le choix d'une cellule

Code:

---

1 2 3 4 5 6 7 8 9

Procedure TForm1.Table1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); Begin If ((ACol = 2) And (ARow < Ligne)) Then CanSelect := False Else CanSelect := True; End;

---

@+ Phil

comment on peut par exemple rendre une cellule editable sachant qu'elle n'était pas avant

@ Sky88, continue comme cela !!!!!!!!, on t'aide comme si de rien était et tu redemandes une aide sans avoir donné ton avis sur la 1ère aide.

Très fort !

@+,

Cincap