Discussion :

[nomdutilisateur]

bonjour,
je cherche à empêcher l'édition des cellules d'une colonne
en cherchant sur le forum j'ai trouvé de minuscules pistes et je me demandais s'il n'existait pas une fonction toute bête que je n'aurai pas vu...
qu'en pensez vous?
prenez votre temps, je vais boire un café

[gord's]

regardes dans les options de la stringGrind, je crois que c'est là que ça se règle

[nomdutilisateur]

non dans les options goediting ne marche qu'avec l'ensemble des cellules
mais bon, j'ai fait ça à la sauvage:

Code :

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

if sg.Col<3 then sg.Col:=3;

c'est pas très élégant mais ça marche

[Pierre Castelain]

Je n'ai pas vérifié, mais je pense qu'en modifiant goEditing lors de l'événement OnSelectCell, tu devrais pouvoir t'en sortir.

[nomdutilisateur]

Pierre Castelain
salu
non cela provoque une erreur à l'exécution
j'ai essayé également de changer le "TGridOptions" de la propriété options
mais cela plante aussi à l'exécution
je posais cette question parce qu'il me semble avoir vu qq part il y à qq années une solution à ce problème
bah!

[Pierre Castelain]

L'erreur doit provenir d'ailleurs. Je viens de faire un mini-test et cela fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  if ACol = 1 then
    StringGrid1.Options:= StringGrid1.Options + [goEditing]
  else
    StringGrid1.Options:= StringGrid1.Options - [goEditing];
end;

Peut-être une autre option entrant en conflit ?

[nomdutilisateur]

Pierre Castelain
c'est exact
j'utilisais oncliick et je changeais le set complet
il est vrai aussi que j'ai corrigé 3..4 choses depuis
en tout cas merci, ça marche!