[CheckListBox] avec un seul item coché ?

Version imprimable

Bonjour ;)

Je bute devant un problème tout bête...

Je cherche la méthode afin d'obtenir dans une CheckListBox qu'un seul item coché possible, oui un seul = celui coché tout simplement.

J'ai cherché un peu partout, même en compos spécifiques et choux-blanc...

Je peux très bien bricoler un truc du genre :
Code:

1 2 3 4 5 6 7 8 9 ... if CheckListBox1.Checked[0] = true then begin (tous les autres items décochés) if CheckListBox1.Checked[1] = true then begin (tous les autres items décochés, etc.) ...
Mais je ne peux savoir quel sera le nombre d'items d'avance...

Merci de vos idées !

18/08/2006, 22h58
thewho

Bonjour,

Ce que tu cherches à faire n'est pas le rôle des checkbox, mais celui des Radiobutton.

Bonsoir,
C'est tout de même faisable, si il veut garder le coté 'case a cocher' de la chose.
Un exemple de code, avec le 'cousin' CBuilder, donc a adapter :
dans l'évènement OnClickCheck...
Code:

1 2 3 4 5 6 7 8 9 10 11 void __fastcall TForm::CheckListBoxClickCheck(TObject *Sender) { for (int i = 0; i < CLB->Items->Count; i ++) { if ( i != CLB->ItemIndex && CLB->Checked[i] == true ) { CLB->Checked[i] = false; } } }
En espérant t'être utile,
@ + ;)

Petit à petit... ;-)

Bonjour,

Je viens de trouver une solution :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm1.CheckListBox1ClickCheck(Sender: TObject); var i: integer; begin //------------------ for i := 0 to N do CheckListBox1.Checked[i] := false; CheckListBox1.Checked[C] := true; //ShowMessage(IntToStr(C)); //------------------ end;
Je précise que la variable N représente le nombre total d'items et C, celui cliqué.

Mais faut encore peaufiner, car cela ne fonctionne que dans un sens ;)

Merci de vos messages et aide !

PS : Sunchaser, j'ai tenté la conversion du cousin, mais pas tiré grand-chose, mais c'est tout de même sympa de ta part ;)

Citation:

Envoyé par thewho

Bonjour,

Ce que tu cherches à faire n'est pas le rôle des checkbox, mais celui des Radiobutton.

c'est a peut prés vrait; mais si il ajoute tros d'element , le checkbox a un assenceur:
je prpose:

Code:

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst;
 
type
  TForm1 = class(TForm)
    Box1: TCheckListBox;
    procedure Box1ClickCheck(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
var  PoseCheck:integer=-1;
 
procedure TForm1.Box1ClickCheck(Sender: TObject);
var  i,j,p:integer;
begin
     j:=0;
     for i:=0 to box1.Count-1 do
       if (box1.Checked[i]) then
          begin
           inc(j);
           if (i<>PoseCheck) then p:=i;
          end;
     if j>2 then exit;//normalement etat impossible
     if j=0 then
       begin
         Box1.Checked[PoseCheck]:=true;//car il faut au moins une case coché
         exit;// traitement déjà fait
       end;
     if j>1 then Box1.Checked[PoseCheck]:=false;//si c'est pas la premiére coche
     PoseCheck:=p;
     //....
     //traitement
     //....
end;
 
end.

Bonjour,
Citation:
Envoyé par J-P
Bonjour,

Je viens de trouver une solution :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm1.CheckListBox1ClickCheck(Sender: TObject); var i: integer; begin //------------------ for i := 0 to N do CheckListBox1.Checked[i] := false; CheckListBox1.Checked[C] := true; //ShowMessage(IntToStr(C)); //------------------ end;
Je précise que la variable N représente le nombre total d'items et C, celui cliqué.

Mais faut encore peaufiner, car cela ne fonctionne que dans un sens ;)
Alors ta blucle n'est pas bonne et devrait être
Code:

1 2 for i := 0 to N-1 do CheckListBox1.Checked[i] := false;
Et j'ajoute que je ne comprends pas cette volonté d'utiliser un composant hors de sa destination normale, car je vois au moins trois raisons s'opposant à ta démarche , la troisième étant une conséquence des 2 premières:

1 - Voir des CheckBox réagir comme des RadioButton va contre les habitudes des utilisateurs.

2 - Utiliser les standards va dans le sens de la facilité de prise en main d'un nouveau logiciel.

3 - Compte tenu des 2 raisons précédentes, au lieu de développer ce qui est vraiment utile à ton programme, tu passes du temps à faire quelque chose qui par ailleurs fonctionne parfaitement.

Si malgré cela tu persistes dans cette voie, je pense qu'il serait plus simple de dériver un RadioButton, en personnalisant sa représentation, plutôt que d'essayer de forcer une exclusivité pour un type de composant non prévu pour, au contraire.

19/08/2006, 13h42
moechofe

Je propose deux autres solutions, afin de ne pas faire de for a chaque clique.

Socker l'index de la dernière checkbox dans une variable global ou la proriété Tag de la CheckListBox, ainsi, à chaque clique, on décoche l'ancien index, et on coche le nouveau.

Mais sinon, le TCustomListBox qui est la classe parente de TCheckListBox contient une propriété MultiSelect qu'il suffit de mettre à False.

Citation:

Envoyé par moechofe

Je propose deux autres solutions, afin de ne pas faire de for a chaque clique.

Socker l'index de la dernière checkbox dans une variable global ou la proriété Tag de la CheckListBox, ainsi, à chaque clique, on décoche l'ancien index, et on coche le nouveau.
.

:mouarf1: ,, je me fait emporte par le code de synchaser :scarymov:
voila le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 implementation {$R *.dfm} var PoseCheck:integer=-1; procedure TForm1.Box1ClickCheck(Sender: TObject); var j:integer; begin j:=box1.ItemIndex; if (j=PoseCheck) and (not Box1.Checked[j]) then begin Box1.Checked[PoseCheck]:=true; exit; end; if PoseCheck>=0 then Box1.Checked[PoseCheck]:=false; PoseCheck:=j; //.... //traitement //.... end;

Bingo !

http://yelims.free.fr/Coucou/Coucou10.gif

Affaire résolue gràce à toutes vos remarques et à la superbe conclusion codale d'edam : http://yelims.free.fr/TopOuNul/Super14.gif
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... procedure TForm1.Box1ClickCheck(Sender: TObject); var j:integer; begin j:=box1.ItemIndex; if (j=PoseCheck) and (not Box1.Checked[j]) then begin Box1.Checked[PoseCheck]:=true; exit; end; if PoseCheck>=0 then Box1.Checked[PoseCheck]:=false; PoseCheck:=j; //.... //traitement //.... end;
Je précise que cette utilisation d'une CheckListBox est indispensable en mon cas, car au niveau de la "logique intuitive" à certain niveau, l'utilisateur lambda est sensible à ses réflexes et non à la non-logique de tel ou tel habitude de compos.

Mon utilisation est de cocher/choisir/mémoriser une imprimante hors celle par défaut qui sera ensuite "relâchée" par défaut lors du "quitter" de ce programme.

Encore http://yelims.free.fr/Coucou/Merci.gif http://www.freegaia.com/smileys/boir...ger/betm13.gif

19/08/2006, 18h13
thewho

Bonjour,

Citation:

Envoyé par J-P

http://yelims.free.fr/Coucou/Coucou10.gif
Je précise que cette utilisation d'une CheckListBox est indispensable en mon cas, car au niveau de la "logique intuitive" à certain niveau, l'utilisateur lambda est sensible à ses réflexes et non à la non-logique de tel ou tel habitude de compos.

Mon utilisation est de cocher/choisir/mémoriser une imprimante hors celle par défaut qui sera ensuite "relâchée" par défaut lors du "quitter" de ce programme.

Désolé, mais je vais te contredire encore.

La force de l'habitude étant, le réflexe de l'utilisateur "lambda", comme tu dis, est de s'attendre à un choix unique avec des RadioButton, et des options non exclusives avec des CheckBox.

C'est ainsi depuis que les applications fenêtrées existent, et même un utilisateur débutant, ayant au plus 1 jour d'utilisation d'un ordinateur, sait déjà cela (ou alors sa formation est mal faite).

Et je ne vois pas en quoi

Citation:

Je précise que cette utilisation d'une CheckListBox est indispensable

Quelle que soit la suite de ton programme, répétons ensemble :

Les CheckBox sont destinées à des choix multiples, chaque option pouvant être choisie indépendamment,
les RadioButton à un choix unique parmi les différentes possibilités.

Depuis pas mal d'années que je bricole en info (j'ai commencé bien avant l'arrivée des système fenêtrés, c'est vieux...), je n'ai jamais vu un programme utilisant une liste de CheckBox pour un choix unique.
19/08/2006, 18h45
Droïde Système7

Conservateur...

Bonjour,

thewho écrivait :

Citation:

[...]
Depuis pas mal d'années que je bricole en info (j'ai commencé bien avant l'arrivée des système fenêtrés, c'est vieux...), je n'ai jamais vu un programme utilisant une liste de CheckBox pour un choix unique.

Certes... idem, je bricole en info depuis quelques années, c'est d'ailleurs la première fois que j'utilise une CheckListBox, je peux te dire que pendant longtemps j'ai cherché la propriété qui me permette de ne laisser coché qu'un seul item, ôhhhhhh honte à moââ http://www.freegaia.com/smileys/heureux/heureux22.gif

Permets-moi le moment voulu, de te donner le lien de cette appli, tu verras alors par toi-même que je ne suis pas si original et loup-phoque, heuuu loufoque dis-je et si saugrenu que ça.

"C'est seulement en brisant ses habitudes que l'homme s'adapte."

Alors mon appli sera unique au monde, en ce fait qu'elle seule possédera une CheckListBox monocheckable ;)

Amicalement http://yelims.free.fr/Coucou/Coucou21.gif
19/08/2006, 20h57
Sunchaser

Citation:

Envoyé par J-P

Alors mon appli sera unique au monde, en ce fait qu'elle seule possédera une CheckListBox monocheckable ;)

Trop tard....j't'ai grillé...j'ai utilisé ce truc il y a 2 ans, désolé :mouarf:

Dérivé un RadioButton, afin d'obtenir une présentation 'en coche' au lieu du 'point' habituel, est forcement plus 'pur' que cette bidouille que j'avais fait et je cromprends thewho.
Néanmoins, c'est surement un peu plus complexe que le bout de code 'bidouillou' qui règle vite le problème de J - P.

Après chacun est libre de ses choix...

@ + ;)
20/08/2006, 12h07
Droïde Système7

Bonjour,

Sunchaser écrivait :

Citation:

Trop tard....j't'ai grillé...j'ai utilisé ce truc il y a 2 ans, désolé ;)

Ouinnnnn ! moi qui pensais faire passer ce détournement en scoop mondial ;) http://yelims.free.fr/TopOuNul/Super14.gif

@+

Plus court

Voici un example plus court. Je l'ai dans la methode 'CheckListBox1Click' et non 'CheckListBox1ClickCheck' ce qui me permet de cliquer simplement sur la ligne pour l'activer. Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
procedure TMainForm.CheckListBox1Click(Sender: TObject);
var
  int1: integer;
begin
  For int1 := 0 to CheckListBox1.Items.Count - 1 do
  begin
    CheckListBox1.Checked[int1] := false;
  end;
  CheckListBox1.Checked[CheckListBox1.ItemIndex] := true;
end;

Dans prémiere exemple il y a toujours 1 case coché. Dans deuxieme ci joint, soit 1, soit 0 case :

Code:

1
2
3
4
5
6
7
8
9
10
procedure TMainForm.CheckListBox1Click(Sender: TObject);
var
  int1: integer;
begin
  For int1 := 0 to CheckListBox1.Items.Count - 1 do
  begin
    If int1 <> CheckListBox1.ItemIndex then CheckListBox1.Checked[int1] := false;
  end;
  CheckListBox1.Checked[CheckListBox1.ItemIndex] := CheckListBox1.Checked[CheckListBox1.ItemIndex] = false;
end;

30/04/2007, 17h24
Droïde Système7

:coucou:

Merci David de ce complément :yaisse2:

Le premier exemple est super plus court en code grâce à sa boucle.

Par contre curieusement ton second exemple fonctionne de manière erratique.

Je m'explique (sous Win98se et Delphi7) :
- Si click direct sur les cases à cocher, ça ne se coche pas au premier coup, ou alors faut faire ça très très doucement (lol ce compo est féminin :mouarf:)
- Par contre, si je click sur les labels à droite de ces cases, là ça se coche impec.

Ceci dit, avec ton premier code, en recliquant doucement avec précision sur la case cochée, cette dernière se décochait.

@+
J-P ;)