Discussion :

[adelneo]

J’ai un StringGrid avec 3 colonnes. Les 2 première colonnes contiennent les données et la 3éme recevra les résultats (somme de colonne 1 et 2 pour simplifier); ce que je veux c'est qu'au changement du contenu des cellules des colonnes 1 et 2, celles de la colonne 3 reçoivent automatiquement le calcul.
Q1: est ce que c'est possible de rendre la colonne de résultats en lecture seule? Q2: est-il possible de programmer l’évènement OnSetEditText de sorte qu'il se déclenche seulement quand on modifie les données de la colonne 1 et 2 et pas 3?

[DOLPat®]

Bonjour

rendre la colonne de résultats en lecture seule

Code :

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

1
2
3
4
5
6
7
8
procedure TForm9.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if ACol=2 then // Mets la colonne 2 en lecture seule
    StringGrid1.Options:=StringGrid1.Options-[goEditing]
  else  // Rend l'édition possible
    StringGrid1.Options:=StringGrid1.Options+[goEditing]
end;

est-il possible de programmer l’évènement OnSetEditText de sorte qu'il se déclenche seulement quand on modifie les données de la colonne 1 et 2 et pas 3?

Il suffit d'effectuer le calcul du résultat si l'on est pas en colonne 3:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm9.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
begin
  if ACol <> 3 then
    begin
 
    end;
end;

[adelneo]

Merci pour votre aide.