Discussion :

[jamah]

Bonjour a tous !!!
Voici ce que j'aimerai faire :
Dans un tableau de type stringGrid , j'aimerai que l'utilisateur ne puisse pas pouvoir editer certaines cases du tableau (lesquelles cellules auront deja du texte a l'interieur) , la propriete onEditing a true permet d'editer toutes les cellules .Moi je voudrai avoir le controle sur certaines.
J'avais pour idee d'utiliser l'evenement " StringGrid1.OnSelectCell" qui prend pour parametres un Tobjet , les coordonnee de la cellule colonne et ligne , et une variable de type booleen canselect qui permet l'edition ou non de cette cellule mais mon probleme c'est le Tobjet je ne sais pas quoi mettre .
Quelqu'un pourrait m'aider ?
merci d'avance
+++

[Cl@udius]

Salut,

Tu n'as pas à t'occuper du TObject qui est le paramètre Sender. Ce TObject est simplement ton TStringGrid.

Suivant les coordonnées de la cellule renseigne CanSelect. Ca peut ressembler à ceci:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  CanSelect := (ACol < 3) and (ARow > 2); // Par exemple
end;

Voilà à toi d'adapter ta condition voulue !
@+

[Alfred12]

J'ai fait comme ca. J'ai créé un composant descendant de TStringGrid (ca prend 2 minutes) et j'ai surchargé la méthode CanEditShow.
FOnCanModify est un evenement qui est publié.

Code :

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

1
2
3
4
5
6
7
 
function TMyStringGrid.CanEditShow : Boolean;
begin
   Result := Inherited CanEditShow;
   If not Result then exit;
   If Assigned(FOnCanModify) then FOnCanModify(Col,Row,Result);
end;

[TicTacToe]

Lorsque tu changes de cellules, et que tu permets ou non l'edition, tu peux te servir de ce code (je le fais sur un DBStringGrid, ca fonctionne bien)

Code :

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

1
2
3
4
5
 
     BEdit := True/False selon ta permission
     if BEdite
       then MaGrid.Options := MaGrid.Options + [ goEditing ]
       else MaGrid.Options := MaGrid.Options - [ goEditing ];

Bon courage !