Problème avec des checkbox

**breizh44** · 18/05/2009, 14h55

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** · 18/05/2009, 15h38

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** · 18/05/2009, 15h53

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é.

**Just-Soft** · 18/05/2009, 15h56

Envoyé par 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;

c'est mieux que ma solution. bravo ShaiLeTroll

**breizh44** · 18/05/2009, 16h37

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** · 18/05/2009, 18h22

Envoyé par 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.

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

A+

**breizh44** · 18/05/2009, 18h48

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** · 18/05/2009, 19h18

Envoyé par 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?

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.

**breizh44** · 18/05/2009, 19h52

Je crois que je me suis mal exprimé depuis le départ.

En fait, j'ai une forme contenant Un Tablesheet, comprenant lui même des tablesheet dans chacune de ses pages.

Dans ces pages, j'ai des controlgroupbox, contenant des checkbox.

Ce que je désire faire c'est savoir combien de checkbox sont validées, par pages des tablesheet. Et donc, voila pourquoi, j'ai un compteur différent à chaque onglet de mon tablesheet.

J'avais écrit au début un truc dans cegenre là :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
 
procedure Tmatieres.P1LireC1Click(Sender: TObject);
var compteurlire : integer;
begin
compteurlire := strtoint(edit1.Text);
if P1LireC1.checked = true then
compteurlire := compteurlire+ 1  ;
edit1.text := Inttostr(compteurlire);
if (P1LireC1.Checked = False) then
if compteurlire > 0 then
compteurlire := compteurlire - 1;
edit1.text := Inttostr(compteurlire);
end;
 
procedure Tmatieres.P1LireC2Click(Sender: TObject);
var compteurlire : integer;
begin
compteurlire := strtoint(edit1.Text);
if P1LireC2.checked = true then
compteurlire := compteurlire+ 1  ;
edit1.text := Inttostr(compteurlire);
if (P1LireC2.Checked = False) then
if compteurlire > 0 then
compteurlire := compteurlire - 1;
edit1.text := Inttostr(compteurlire);
end;
 
// et ainsi de suite pour toutes les checkboxes de l'onglet concernés.

Vu que j'ai plus de 300 checkboxes, réparties en diverses groupe, la taille au final de mon programme va être démentielle !...

Dois-je faire un CompteurCheckBoxP''Nom_de-l-onglet''Click pour chaque onglet et donner un nom de compteur différent?

**ShaiLeTroll** · 19/05/2009, 11h33

Si tu veux le savoir par Onglet c'est assez simple, si tu as la propriété Tag de libre dans tes TTabSheet, tu peux l'utiliser comme Compteur ... tu n'auras plus qu'à lire chaque TabSheet.Tag pour savoir combien de CheckBox sont cochées par onglet ...

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(GetTabSheet(TCheckBox(Sender)).Tag)
    else
      Dec(GetTabSheet(TCheckBox(Sender)).Tag);
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function GetTabSheet(CheckBox: TCheckBox): TTabSheet;
var
  Control: TControl;
begin
   Control := CheckBox;
   repeat
      if Assigned(Control) then
         Control := Control.Parent;
   until not Assigned(Control) or (Control is TTabSheet);
 
   if Control is TTabSheet then
     Result := TTabSheet(Control);
end;

**edam** · 19/05/2009, 16h45

ou, sans

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
16
17
18
 
procedure TFPrincip.Button1Click(Sender: TObject);
var  n,i,j:integer;
     TS:TTabSheet;
begin
     caption:='';
     for n:=0 to ComponentCount-1 do
       if Components[n] is TTabSheet then
       begin
         ts:=TTabSheet(Components[n]);
         j:=0;
         for i:=0 to ts.ControlCount-1 do
           if ts.Controls[i] is TCheckBox then
              if TCheckBox(ts.Controls[i]).Checked then
                 inc(j);
         caption:=caption+'nbr en '+ts.Name+': '+inttostr(j)+' / ';
       end;
end;

[Edit] pourquoi tout ces chekbox? c'est pour des droit d'accées ou questionnaire, ou quoi exactement si c'est possible?

**tomy_libre** · 22/05/2009, 06h54

**breizh44** · 26/05/2009, 18h58

Merci Shai Le Troll,

Je déchiffre ton code....

Le débogueur me mets l'erreur suivante :

[Pascal Avertissement] matiereseval.pas(620): W1035 La valeur de retour de la fonction 'GetTabSheet' peut être indéfinie
[Pascal Erreur] matiereseval.pas(627): E2064 La partie gauche n'est pas affectable
[Pascal Erreur] matiereseval.pas(629): E2064 La partie gauche n'est pas affectable
[Pascal Erreur fatale] Logival.dpr(8): F2063 Impossible de compiler l'unité utilisée 'matiereseval.pas'

D'où cela provient-il?

PS : Pour réopndre à la question d'Edam, toutes ces checkbox sont en fait des compétences à évaluer. Chaque utilisateur fait son choix des compétences qu'il doit faire évaluer, et ceci dans différentes matières (d'où mes tabsheet comprenant eux-mêmes d'autres Tabsheets).
Le choix d'une ou plusieurs comppétences me créera un tableau avec en titre de colonnes les dites compétences.

**ShaiLeTroll** · 27/05/2009, 11h35

je n'ai pas essayé, remplace Inc et Dec par

Code :

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

1
2
with GetTabSheet(TCheckBox(Sender)) do
  Tag := Tag + 1;

Code :

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

1
2
with GetTabSheet(TCheckBox(Sender)) do
  Tag := Tag - 1;

Sinon la solution d'Edam est plus intelligente, tu peux recalculer le nombre de points à la fin ... au lieu de le faire en temps réel ...

**Montor** · 27/05/2009, 18h54

essaie

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
16
17
18
19
20
21
procedure TForm1.CompteurCheckBoxClick(Sender: TObject);
var
  Control: TControl;
begin
   if Sender is TCheckBox then
   begin
       Control :=TControl(Sender);
 
        while (Control <> nil) and not(Control is TTabSheet) do
             Control := Control.Parent;
 
      if Control is TTabSheet then
       begin
        if TCheckBox(Sender).Checked then
            Control.Tag:=Control.Tag+1
           else
            Control.Tag:=Control.Tag-1;
       end;
 
    end;
end;

une autre solution installe ce composant dérivé de CheckBox

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Checkssss;
interface
uses
  SysUtils, Classes, Controls, StdCtrls,ComCtrls;
type
  TCheckssss = class(TCheckBox)
 protected
    procedure Click();override;
  public
    constructor Create(AOwner:TComponent);override;
 
end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Exemples', [TCheckssss]);
end;
{Forms.GetParentForm}
function GetParentTabSheet(Control: TControl):TTabSheet;
begin
  while (Control <> nil) and not(Control is TTabSheet) do
        Control := Control.Parent;
 
    if Control is TTabSheet then
      Result := TTabSheet(Control) else
      Result := nil;
end;
 
constructor TCheckssss.Create(AOwner:TComponent);
begin
   inherited Create(AOwner);
   Caption:=Format('%s',[AOwner.Name]);
end;
 
procedure TCheckssss.Click();
var
   ParentPage:TTabSheet;
begin
    ParentPage:=GetParentTabSheet(Self);
  if Assigned(ParentPage) then
   with ParentPage do
    if Checked then
       Tag:=Tag+1
       else
       Tag:=Tag-1;
 
  inherited;
end;
 
end.

mais il faut que tu change tout tes CheckBox par ceci

Problème avec des checkbox

Delphi

Discussions similaires

Partager

Partager