Discussion :

[tarmo57]

salut tous re petit problémes avec un combobox maintenant

j'explique j'ai un combobox avec deux choix OUI ou NON

si OUI je voudrais si possible afficher un autre combobox
si NON je ne fais rien

merci de votre aide

[Cl@udius]

Salut

Sur quoi tu butes ?
Savoir quel élément (oui ou non) a été sélectionné ? Afficher le second ComboBox ?

@+

[tarmo57]

Salut

Sur quoi tu butes ?
Savoir quel élément (oui ou non) a été sélectionné ? Afficher le second ComboBox ?

@+

oui voila je ne sais pas si oui ou non et selectionné dans mon combobox
et si le oui est selectionné je voudrais que l'autre combobox s'affiche instentanément

comme par exemple si tu choisis les pays (la FRANCE) j'ai un autre combobox qui s'affiche pour te demander ql département

[Cl@udius]

Utilises la propriété ItemIndex de la ComboBox que tu examines dans l'évènement OnChange:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  with ComboBoxOuiNon do
  begin
    case ItemIndex of
      0: // Oui
      begin
         ComboBox2.Visible := True;
         ComboBox2.SetFocus;
      end;
      1: // Non
        ComboBox2.Visible := False;
    end;
  end;

@+ Claudius

[madlozoz]

Solution alternative : utiliser la propriété "text".
ItemIndex donne le numéro du choix (-1 si aucun choix n'a été fait), Text donne le texte du choix
Par contre, on ne peut pas utiliser Case .. of dans ce cas. Il faut utiliser if...then

Code :

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

1
2
3
4
5
6
7
8
9
10
 with ComboBoxOuiNon do
  begin
    if text='oui' then begin
         ComboBox2.Visible := True;
         ComboBox2.SetFocus;
     end
     else begin
        ComboBox2.Visible := False;
    end;
  end;

[tarmo57]

Solution alternative : utiliser la propriété "text".
ItemIndex donne le numéro du choix (-1 si aucun choix n'a été fait), Text donne le texte du choix
Par contre, on ne peut pas utiliser Case .. of dans ce cas. Il faut utiliser if...then

Code :

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

1
2
3
4
5
6
7
8
9
10
 with ComboBoxOuiNon do
  begin
    if text='oui' then begin
         ComboBox2.Visible := True;
         ComboBox2.SetFocus;
     end
     else begin
        ComboBox2.Visible := False;
    end;
  end;

OK super le code marche aux poils merci

[Reisubar]

Solution alternative : utiliser la propriété "text".

Comme ca, le jour ou tu changes la valeur de Caption dans l'éditeur sans te rappeller de comment marche ton code, plus rien ne fonctionne... Idem le jour ou tu traduis tes applis... Donc personnellement je m'en tiendrais à la solution de Claudius.