Discussion :

[sevyc64]

Hello world !

Dans un logiciel que je modifie, j'ai une grille, composant devexpress TcxGrid, dont 4 des colonnes sont des checkbox (propriété Properties positionnée sur TcxChekcBoxPropertie).

Je veux, sur le cochage/décochage d'une des 4 checkbox, recalculer certains paramètres de la ligne en fonction de la nouvelle valeur de la checkbox. Or, j'ai essayer les événements OnChange, OnEditValueChanged, OnValidate, je ne parviens pas à récupérer la nouvelle valeur de la checkbox, j'ai toujours l'ancienne.


Quelle est l'astuce que je rate ?

Code :

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

1
2
3
4
5
6
7
8
procedure TMain.cxGrid_TOTO_ColAPropertiesValidate(Sender: TObject;
  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
  FRecordIndex: Integer;
begin
  FRecordIndex := cxGrid_TOTOTV.DataController.FocusedRecordIndex;
  ShowMessage('PropertiesValidate / ' + BoolToStr(cxGrid_TOTOTV.DataController.Values[FRecordIndex, cxGrid_TOTO_ColA.Index]));
end;

Je ne trouve rien sur le site de devExpress, les composants sont trop vieux sans doute.

PS : La grille n'est pas liée à une source de données, elle est gérée manuellement.

[Ph. B.]

Bonjour,

Quelle est l'astuce que je rate ?

La nouvelle valeur qui n'est donc pas encore validée est stockée dans le variant DisplayValue passé en paramètre...
Reste à vérifier que c'est l'endroit approprié pour réactualiser les valeurs calculées...

[sevyc64]

Ok, donc DisplayValue contiendra directement True ou False correspondant à la propriété Checked dans le cas d'une checkbox, c'est ça ?

Reste à vérifier que c'est l'endroit approprié pour réactualiser les valeurs calculées...

Non ce n'est pas l'endroit le plus approprié, mais, à défaut d'autre chose, ça sera un moindre mal.
Le OnValidate ne se déclenche que lorsqu'on quitte la cellule. J'aurais préféré déclencher le calcul sur le cochage directement. Ça sera donc plutôt sur le OnChange, ou le OnEditValueChange. Mais sur ces 2 événements, je n'ai que le "Sender: TObject" en paramètre.

De plus ma routine événement est commune aux 4 checkbox, il faudra donc que je puisse identifier la colonne qui déclenche pour savoir sur laquelle je dois aller récupérer la valeur nouvelle.

[sevyc64]

Ok, comme quoi la nuit porte conseil.

Sur le OnChange, je récupère bien la nouvelle valeur de la checkbox qui déclenche avec ce code TcxCheckBox(Sender).Checked. Plus simple on peut pas faire, mais après une journée de boulot avec plus de 30°C dans le bureau, j'avais pas trouvé.

Me reste plus qu'à trouver comment identifier la checkbox qui déclenche.

[Ph. B.]

Bonjour,

Sur le OnChange, je récupère bien la nouvelle valeur de la checkbox qui déclenche avec ce code TcxCheckBox(Sender).Checked. Plus simple on peut pas faire, mais après une journée de boulot avec plus de 30°C dans le bureau, j'avais pas trouvé.

Me reste plus qu'à trouver comment identifier la checkbox qui déclenche.

Sachant que vous avez la TcxCheckBox en transtypant Sender, vous devriez pouvoir remonter à son parent, et par là à la cellule, la colonne ou la grille. Vous avez déjà identifié la ligne, donc tout ce qu'il faut pour réactualiser les valeurs calculées...

[sevyc64]

J'ai pas réussi, le parent se présente comme un TGridSite

N'ayant plus trop le temps de chercher, je suis passé sur 4 évents distant, pour chaque colonne, qui, chacun lit la valeur modifié de sa propre checkbox et les valeurs "normales" des autres checkbox et passe la main à une fonction unique qui traite les 4 valeurs.

C'est un peu moins propre, mais j'ai pas le temps de faire mieux pour le moment.

Merci pour l'aide en tout cas.