Discussion :

[Jlmat]

Bonjour à tous,

Bah, je sais vous allez me dire pourquoi faire compliqué quand on peut faire simple! 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.



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 :

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

ç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

[Roland Chastain]

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

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

[tourlourou]

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

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

[Jlmat]

Merci tourlourou Roland vos solutions fonctionnent!