Bonjour,

Je créé une application contenant plusieurs Tablesheets, comprenant elles-mêmes plusieurs checkboxes, se trouvant dans différents TGroupbox.

Chaque checkbox porte un nom en fonction de l'onglet où elle se trouve. Par exemple, :
Onglet Ecrire :
Checkbox1 nom : P1EcrireC1
Checkbox2 nom : P1EcrireC2
Checkbox3 nom : P1EcrireC3
...

Je voudrais savoir comment il est possible que lorsque je clique sur une chekbox, un compteur s'incrémente (et se décrémente si je reclique dessus) sans avoir à programmer la même routine pour chaque checkbox, et pour chaque Tgroupbox.

J'ai réalisé une routine de ce genre, mais cela ne semble pas fonctionner :
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
 
procedure Tmatieres.EcrireContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
  var compteurecrire, i : integer;
begin
compteurecrire := strtoint(edit2.Text);
for I := 0 to ControlCount - 1 do
begin
    if Ecrire.controls[i].checked = true then
begin
  compteurecrire := compteurecrire + 1;
  edit2.Text := inttostr(compteurecrire);
end;
end;
end;
Merci pour votre aide éventuelle.