Discussion :

[Droïde Système7]

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 :

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

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 !

[thewho]

Bonjour,

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

[Sunchaser]

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 :

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

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,
@ +

[Droïde Système7]

Bonjour,

Je viens de trouver une solution :

Code :

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

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

[thewho]

Bonjour,

Bonjour,

Je viens de trouver une solution :

Code :

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

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 :

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

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.

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

[edam]

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 :

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