Discussion :

[KlausGunther]

Bonjour,

Je suis sous W10 avec Delphi 6 PE.

Je suis tombé sur un os en uilisant un TStringGrid avec édition du contenu des cellules.
Je peux activer l'éditeur inline et ça fonctionne, sans problème.

Maintenant, je veur "protéger" certaines cellules sans qu'il soit possible de les éditer.
J'assigne donc un objet aux cellules en question, et la présence ou non de cet objet condiionne l'autorisation de l'éditeur inline.
Je fais ça via l'évènement OnSelectCell dont je gère le paramètre CanSelect.

Cela marche aussi - les cellules en questioin ne peuvent plus être sélectionnées.

MAIS, après avoir cliqué sur une de ces cellules "protégées", si je tape ensuite du texte, il se place directement dans UNE AUTRE celule è celle qui était sélectionnée auoaravant.

Or, ce n'est pas le comportement que je veux. Je cherche à désélectionner les cellules actuellement sélectionnées lorsque je "protège" une de mes cellules, de sorte que des caractères frappèes après un refus d'édition soit ignorées. Et je n'y arrive pas.

J'ai trouvé sur internet l'astuce d'affecter un TGridRect invalide à la propriété Selected:

Code :

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

    TStringGrid(Sender).Selection := TGridRect(Rect(-1,-1,-1,-1));    // <======= ne désactive PAS la sélection !

Résultat: auxun.

De plus, dès qu'une cellule a été éditée, même si ensuite j'en sélectionne une autre, le fait de sortir du programme provoque souvent une violation de mémoire.

Je mets en pièce jointe un fichier ZIP avec le projet complet en D6 PE, y compris l'exécutable.

Question 1: comment effectivement désélectionner une cellule ?
Question 2: qu'est-ce qui provoque la violation de mémoire en sortie de programme ?

[papyvore]

salut essais ça

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
18
19
20
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Col, Row: longint;
begin
//  with TStringGrid(Sender) do
  begin
    StringGrid1.MouseToCell(X, Y, Col, Row);
 
    // Si la cellule est protégée → retirer le focus du grid
    if (Col = 2) and (Row = 3) then
    begin
      // Enlever le focus pour empêcher toute saisie
      Self.ActiveControl := nil;
 
      // Et on force une mise à jour visuelle
      TStringGrid(Sender).Selection := TGridRect(Rect(-1, -1, -1, -1));
      Repaint;
    end;
  end;
end;

à la place de

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);

finalement

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  if (aCol=2) and (aRow=3) then
  begin
    TStringGrid(Sender).Selection := TGridRect(Rect(-1,-1,-1,-1));    // <======= ne désactive PAS la sélection !
    Self.ActiveControl := nil;
   StringGrid1.Repaint;
  end;
end;

fonctionne tout aussi bien

[KlausGunther]

Au premier regard, cela semble bon... mais essaie de cliquer une deuxième fois sur la cellule, ou double-clique que la cellule, puis tape dubtexte - la cellule 'protégée" recevra le texte tout de mâme. Et si tu ajoutes la ligne

Code :

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

ActiveControl := nil;

alors la cellule reste effectivement protégée, mais une cellule quelconque recevra le texte...

[Invité]

Dans l'evenement OnSelectCell tu peux activer ou désactiver d'edition des cellules

Code :

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

1
2
3
4
5
6
 
  if (ACol = 2) and(ARow = 2) then  // la cellule à désactiver
  begin
     StringGrid1.Options :=  StringGrid1.Options -[goEditing];
  end else
     StringGrid1.Options :=  StringGrid1.Options +[goEditing];

[KlausGunther]

Parfait ! Cette solution fait exactement ce que je souhaitais !

Et je m'en veux de ne pas avoir pensé moi-même ! C'est d'une telle simplicité - BRAVO !

[KlausGunther]

J'ai remarqué que dans certaines circonstances, l'astuce de rMist2024 n'est pas suffisante. Alors, j'ai introduit a même séquence de code dans l'évènement OnClick du TTntStringGrid, et le résujlyay est parfait: proection absolue des cellules "protégées" contre toute tentative d'édition, et aucune autre cellule n'est affectée lorsqu'on frappe des caractères après une tentaive d'édition d'une cellule.

Par la même occasion, j'ai créé une classe TUnicodeGridCellParams avec laquelle je crée un objet distinct pour chaue cellule. Cette classe me permet de définir une Font pour la celule la coueur de fond de la cellule, et une série de flags également spécifiques à la cellule, dont bien sûr le flag "non éditable". Du coup, j'obtiens un StringGrid paramétrable très suplmenent en traitant ces paramères dans l'évènement OnDrawCell.

A tout hasard, voici les portions du code concerné:

La classe de paramètres:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
type
  TUnicodeGridCellParams = class
    Options: set of TUnicodeGridCelloption;
    Font: TFont;
    FontName: string;
    BackColor: TColor;
  published
    constructor Create;
    destructor Destroy; override;
  end;
 
...
 
constructor TUnicodeGridCellParams.Create;
begin
  inherited;
  Options := [];
  Font := TFont.Create;
  Font.Name := 'Tahoma';
  FontName := 'Default';
  Font.Size := 10;
  Font.Style := [];
  BackColor := clWhite;
  MyUnicode.UnicodeFonts.AddObject(FontName,Font);
end;
 
destructor TUnicodeGridCellParams.Destroy;
begin
//  Font.Free;
  inherited;
end;

L'évènement OnSelectCell:

Code :

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

1
2
3
4
5
6
7
8
class procedure TUnicodeObject.StringGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
  if TTntStringGrid(Sender).Objects[ACol,ARow]<>nil then begin
    if ugcoAllowEdit in TUnicodeGridCellParams(TTntStringGrid(Sender).Objects[TTntStringGrid(Sender).col,TTntStringGrid(Sender).row]).Options
      then     TTntStringGrid(Sender).Options :=  TTntStringGrid(Sender).Options + [goEditing]
      else     TTntStringGrid(Sender).Options :=  TTntStringGrid(Sender).Options - [goEditing];
  end;
end;

L'évènement OnClick:

Code :

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

1
2
3
4
5
6
7
class procedure TUnicodeObject.StringGridClick(Sender: TObject);
begin
  if ugcoAllowEdit in TUnicodeGridCellParams(TTntStringGrid(Sender).Objects[TTntStringGrid(Sender).col,TTntStringGrid(Sender).row]).Options
    then     TTntStringGrid(Sender).Options :=  TTntStringGrid(Sender).Options + [goEditing]
    else     TTntStringGrid(Sender).Options :=  TTntStringGrid(Sender).Options - [goEditing];
  SendUnicodeUserEvent(uetClick, Sender);
end;

L(évènement OnDrawCell:

Code :

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

1
2
3
4
5
6
7
class procedure TUnicodeObject.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
   TTntStringGrid(Sender).Canvas.Brush.Color := TUnicodeGridCellParams(TTntStringGrid(Sender).Objects[ACOL,AROW]).BackColor;
   TTntStringGrid(Sender).Canvas.Font := TUnicodeGridCellParams(TTntStringGrid(Sender).Objects[ACOL,AROW]).Font;
   TTntStringGrid(Sender).Canvas.FillRect(Rect);
   TTntStringGrid(Sender).Canvas.TextOut(Rect.Left+2,Rect.Top+2,TTntStringGrid(Sender).Cells[ACOL,AROW]);
end;

Et, pour finir, la définition des Class Procedure ci-dessus:

Code :

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

1
2
3
4
5
6
7
type
  TUnicodeObject = class(TWinControl)
    class procedure StringGridClick(Sender: TObject);
    class procedure StringGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
    class procedure StringGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
// ... il y en a d'autes ici, pour d'autres objets
  end;

J'ai conscience que a façin de coder n'est probablement pas très élégante, mais ça marche parfaitement.