Exclusion d'un groupe de CheckBox comme des Radiobutton

Version imprimable

2 pièce(s) jointe(s)

Bonjour à tous,

Bah, je sais vous allez me dire pourquoi faire compliqué quand on peut faire simple!:marteau: Ben le RadioButton ne me plait pas, je trouve plus joli les petites cases à cocher. Mais voilà, il faut qu'elle se comportent comme des boutons radio, donc un seul choix possible. Je pensais y arriver en faisant appel à l'identification centralisée des composant sur la fenêtre, mais ça coince.

Pièce jointe 632890

Tous les évènements des cases à cocher sont centralisées sur le Séparateur Tab (c'est une petite appli de conversion de fichier CSV)

L'algorithme semble fonctionner:
1. Je parcours tous les composants de la fenêtre
2. Lorsque j'identifie une CheckBox, je regarde son nom pour voir s'il correspond à celui de l'évènement
3. Si c'est le Bon Nom -> CS
4. mini boucle d'action pour checker la case sélectionnée et Décherckher les autres

Problème:
Le code ci-dessous est bon avec l'affichage des composants à Décocher, mais si à la place je mets l'action TCheckBox(FindComponent(NomCheckSepar[i])).Checked := False; ça plante (En rouge dans le code) => Voir ci-Dessous
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 procedure TForm1.CkBTabClick(Sender: TObject); Const NomCheckSepar : array[0..4] of String = ('CkBTab','ChBSapce','ChBPtComma','ChBComma','ChBOther'); Var C, i : word; CS : String;// nom de la checkBox choisie begin For C := 0 To ComponentCount -1 do begin if Components[C] is TCheckBox then begin if Components[C].Name = TCheckBox(Sender).Name then begin CS := TCheckBox(Sender).Name; For i := 0 to 4 do if CS = NomCheckSepar[i] then TCheckBox(FindComponent(CS)).Checked := true else Showmessage(NomCheckSepar[i]); //TCheckBox(FindComponent(NomCheckSepar[i])).Checked := False; break; end; end; end; end;
Pièce jointe 632892

ça vient peut être du nom du composant, je n'ai pas retrouvé le type des noms de composant, j'ai mis du string...

Merci, pour ceux qui sont un peu tordu comme moi, Lol

1 pièce(s) jointe(s)

Bonjour ! J'ai trouvé cette solution, qui fonctionne chez moi.

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
var
  Force: boolean = FALSE;
 
procedure TForm1.CheckBox1Change(Sender: TObject);
var
  C: integer;
begin
  if Sender is TCheckBox then
  begin
    if Force then
      Exit;
 
    if not TCheckbox(Sender).Checked then
      TCheckbox(Sender).Checked := TRUE
    else
    begin
      Force := TRUE;
 
      for C := 0 To ComponentCount - 1 do
        if (Components[C] is TCheckBox) and (Components[C] <> Sender) and TCheckbox(Components[C]).Checked then
          TCheckbox(Components[C]).Checked := FALSE;
 
      Force := FALSE;
    end;
  end;
end;

Bonsoir,
Si tes CheckBoxes sont dans une GroupBox, ce type de code fonctionne sur le OnMouseUp :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.CheckBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Clicked: TCheckBox;
  GroupBox: TGroupBox;
  Brother: TControl;
  i: integer;
begin
  Clicked := TCheckBox(Sender);
  GroupBox := TGroupBox(Clicked.Parent);
  for i := 0 to GroupBox.ControlCount-1 do
  begin
    Brother := GroupBox.Controls[i];
    if Brother is TCheckBox then
    begin
      TCheckBox(Brother).Checked := ( Brother = Clicked );
    end;
  end;
end;

21/01/2023, 22h07
Jlmat

Merci tourlourou Roland vos solutions fonctionnent!:ccool: