Discussion :

[breizh44]

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.

[ShaiLeTroll]

Il suffit de mettre le même gestionnaire d'évèmenent OnClick pour toutes les CheckBox et utiliser le Sender pour savoir sur quelle CheckBox on a cliqué ...

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.CompteurCheckBoxClick(Sender: TObject);
begin
  if Sender is TCheckBox then
    if TCheckBox(Sender).Checked then // le = true est implicite !
      Inc(compteurecrire)
    else
      Dec(compteurecrire);
end;

[Just-Soft]

Il suffit de mettre le même gestionnaire d'évèmenent OnClick pour toutes les CheckBox et utiliser le Sender pour savoir sur quelle CheckBox on a cliqué ...

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.CompteurCheckBoxClick(Sender: TObject);
begin
  if Sender is TCheckBox then
    if TCheckBox(Sender).Checked then // le = true est implicite !
      Inc(compteurecrire)
    else
      Dec(compteurecrire);
end;

c'est mieux que ma solution. bravo ShaiLeTroll

[breizh44]

Merci Shai le Troll. Toujours fidèle au poste à ce que je vois. Et tant mieux pour les débutants dans mon genre!....

Une chose que je ne comprends pas (néophyte que je suis).

Le nom de ta procédure :
procedure Tmatieres.CompteurCheckBoxClick(Sender: TObject);

CompteurCheckboxClick, fait référence à un objet?

Merci d'éclairer ma lanterne.

[BuzzLeclaire]

Merci Shai le Troll. Toujours fidèle au poste à ce que je vois. Et tant mieux pour les débutants dans mon genre!....

Une chose que je ne comprends pas (néophyte que je suis).

Le nom de ta procédure :
procedure Tmatieres.CompteurCheckBoxClick(Sender: TObject);

CompteurCheckboxClick, fait référence à un objet?

Merci d'éclairer ma lanterne.

Si je puis me permet Troll,
ceci est un évenement que tu placera sur chaque check box dans l'évenement OnClick.

A+

[breizh44]

donc, je mets dans l'événement OnClick de chaque checkbox CompteurCheckBoxClick.
Mon code ressemble à ça désormais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure Tmatieres.CompteurCheckBoxClick(Sender: TObject);
var compteurecrire : integer;
begin
edit2.Text := inttostr(compteurecrire);
  if Sender is TCheckBox then
    if TCheckBox(Sender).Checked then
       Inc(compteurecrire)
                   else
    Dec(compteurecrire);
    end;

Mais ma valeur de compteur ne s'incrémente, ni ne se décrémente. Où dois-je l'initialiser?

[BuzzLeclaire]

donc, je mets dans l'événement OnClick de chaque checkbox CompteurCheckBoxClick.
Mon code ressemble à ça désormais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure Tmatieres.CompteurCheckBoxClick(Sender: TObject);
var compteurecrire : integer;
begin
edit2.Text := inttostr(compteurecrire);
  if Sender is TCheckBox then
    if TCheckBox(Sender).Checked then
       Inc(compteurecrire)
                   else
    Dec(compteurecrire);
    end;

Mais ma valeur de compteur ne s'incrémente, ni ne se décrémente. Où dois-je l'initialiser?

Si tu a besoin de connaitre ton incrémentation ailleur que dans cette procédure retire le
Var compteurecrire: integer;

Et déclare la en variable global cela signifie donc que ta variable compteurecrire sera incrémenter ou décrémenter quelque soit le checkbox de ton Tabsheet utiliser.

[Just-Soft]

salut;

je crois qu'il faut faire ça au niveau de l'évènement onCheked (pourvu que je me souviens).

Code :

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

1
2
3
4
procedure btCheked(Sender : Object)
begin
  if bt.Cheked then inc(i) else dec(i);
end;

autre chose ta variable (compteur) est locale donc écrasement à chaque appel de la procédure donc pas de résultat escompté.