Discussion :

[sky88]

bonjour tout le monde

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Charly910]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anapurna]

salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sky88]

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

[cincap]

@ 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