Discussion :

[defluc]

Salut,

J'ai un formulaire qui contient 12 Checkbox que je veux cocher et décocher suivant l'état d'un trezième.
Pour ne pas coder Checkbox1 := Checkbox13;
Checkbox2 := Checkbox13;
Checkbox3 := Checkbox13;
.......
.......
je cherche un moyen plus élégant de le faire dans une boucle.

Quelqu'un aurait-il une idée ?

Merci

[portu]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Var
i : Integer;
Begin
 
   For i := 0 to Form1.ComponentCount-1 do 
   begin
      If (Form1.Components[i] IS TCheckBox) then
      TCheckBox(Form1.Components[i]).Checked := CheckBox13.Checked;
   end;

Un truc comme ca peut etre!

[defluc]

Merc pour la solution