Discussion :

[madjid90]

slt tt le monde
je ss un débutant en delphi
j'ai un groupbox qui contient des checkbox
je veux savoir qu'elle est la boucle pour vérifier que les checkbox sont cochés :
j'ai essayé avec :

Code :

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

1
2
for i:=0 to (groupbox1.controlcount)  do
 showmessage checkbox(controls[i]).caption;

mais ça marche pas

merci d'avance !!

[mick605]

Salut

Ce n'est pas très clair ... Tu veux cocher toutes tes CheckBoxs, ou afficher le nom de celles qui sont cochées ?

[madjid90]

je veux afficher de celle qui sont cochées

merci

[sat83]

Je n'ai pas Delphi sous la main, mais avec quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
  for i:=0 to  GroupBox1.controlcount  do
  begin
    if( GroupBox1.Controls[i].ClassName = 'TCheckBox' ) then
    begin
      if TCheckBox( GroupBox1.Controls[i] ).Checked then
       ShowMessage( TCheckBox( GroupBox1.Controls[i] ).Name +  ' est cochée' ) 
      else 
       ShowMessage( TCheckBox( GroupBox1.Controls[i] ).Name +  ' n''est pas cochée' ) 
    end
  end

[madjid90]

Merci beacoup
ça marche parfaitement maintenant !!!!!
merci encore !!!!!

[ero-sennin]

Salut,

J'aurai tendance à dire qu'il manque un -1 sur ControlCount.

Sinon, on peut faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
  for i:=0 to  GroupBox1.controlcount - 1  do
  begin
    if( GroupBox1.Controls[i] is TCheckBox) then
    begin
      if TCheckBox( GroupBox1.Controls[i] ).Checked then
       ShowMessage( TCheckBox( GroupBox1.Controls[i] ).Name +  ' est cochée' ) 
      else 
       ShowMessage( TCheckBox( GroupBox1.Controls[i] ).Name +  ' n''est pas cochée' ) 
    end
  end