TStringGrid: comment désélectionner une cellule ?

Version imprimable

20/04/2025, 09h04
KlausGunther

1 pièce(s) jointe(s)

TStringGrid: comment désélectionner une cellule ?

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:

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 ?

salut essais ça

Code:

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

Citation:

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

finalement

Code:

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

20/04/2025, 18h55
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:

ActiveControl := nil;

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

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

Code:

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];

21/04/2025, 01h12
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 !

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:

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:

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:

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:

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:

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.