Discussion :

[chrysbi]

Bonjour,

j'ai un problème concernant une interface que je suis en train de créer: mon interface contient un TRadioGroup, et TCheckGroup un et bouton. J'aimerais que mon bouton ne s'active que si au moins une case du TCheckGroup soit sélectionné, et que le TRadioGroup soit coché...
Mais je ne sais pas quel propriété permet de montrer ces actions (au moins une case cochée pour pour le TCheckGroup, etc.)...
Quelqu'un saurait-il quel est cet événement?

[jeffk_]

Pour le CheckGroup je ne sais pas mais je peu t'aider pour le RadioGroup.

Il y à une propriété ItemIndex qui définit l'endroit ou est placé le choix. Si c'est 0 c'est le premier choix, 1 le deuxième etc ... et si c'est -1 il n'y a pas de choix.

Donc au début tu définit par default le RadioGroup.ItemIndex:=-1;

Et après sur le OnChange du RadioGroup et du CheckGroup tu fait les verifs.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// Si il n'y a pas de choix
If (Radiogoup.ItemIndex=-1)   ou   (CheckGroup.(la je sais pas))
then
begin
Bt_valider.enabled=false;
end
 
else
begin
bt_valider.enabled=true;
end

[chrysbi]

Merci!
Je verrai ça pour le CheckGroup, parce qu'il n'a pas d'ItemIndex...

[winow]

Bonjour

Pour le CheckGroup il y a ceci qui marche sous linux:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
begin
 
        if ( CheckGroup1.Checked [ index ] = false) then
          Button1.Enabled := false
      else
          Button1.Enabled := true;
 
end;

A+

[tintinux]

Ca serait quand même plus simple et plus lisible comme ça :

Code :

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

1
2
3
4
5
procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
 
begin
    Button1.Enabled := CheckGroup1.Checked [ index ];
end;

Cordialement,
Martinux

[luckylucas]

Pour activer un bouton si au moins un element est coché,
il y a une solution simple en parcourant les items

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
var
  i : integer;
  b : boolean;
begin
  b := false;
  for i := 0 to TCheckGroup(Sender).Items.Count-1 do
    b := b OR TCheckGroup(Sender).Checked[i];
 
  button1.enabled := b;
end;

en prenant en considération le radioGroup 1 cela donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
var
  i : integer;
  b : boolean;
begin
  b := false;
  if radioGroup1.itemIndex<>-1 then
  begin
    for i := 0 to TCheckGroup(Sender).Items.Count-1 do
      b := b OR TCheckGroup(Sender).Checked[i];
  end;
 
  button1.enabled := b;
end;