Discussion :

[didi59650]

j'aimerais pouvoir faire deux choses différentes avec un seul bouton. Pour cela je dois créer avec un DBComboBox une liste pour avoir le choix entre deux modes.
par exemple j'ai dans la liste du DBComboBox "mode1" et "mode2". Ainsi si je choisi "mode1" quand j'appuie sur mon bouton il affiche 1 ou si je prend "mode2" il affiche deux.
Comment faire?

[didi59650]

j'ai deja compris comment faire une liste meme si le choix ne s'affiche pas quand je le selectionne

Code :

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

1
2
3
 
DBComboBox1.Items.Add('mode1');
DBComboBox1.Items.Add('mode2');

[cfalcot]

Salut,

Dans le ComboBox1Change(Sender: TOBject)

Code :

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

1
2
3
4
5
6
7
8
9
  if ComboBox1.ItemIndex=0 then
  Begin
    //Code cas 1
  end;
  if ComboBox1.ItemIndex=1 then
  Begin
    //Code cas 2
  end;
  //...

Ou avec des case si tu a plus de choix

[aityahia]

si vous navez pas besoin a ce que l'utilisateur choisisse le mode c'est tu le fait par code pense a utilser le tag ou le caption du bouton.

[didi59650]

j'ai tapé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.FormCreate(Sender: TObject);
begin
DBComboBox1.Items.add('mode1');
end;
procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
if dbComboBox1.ItemIndex=0 then
begin
dbComboBox1.text:='mode1';
end;
end;

quand je selectionne mode1 il ne s'affiche pas

[didi59650]

c'est bon en utilisant FilterComboBox1 sa marche. mais maintenant j'aimerais que mon bouton fasse tel chose si j'ai le mode1 et tel chose si je choisi mode2

[aityahia]

utilise plutot un combobox sa occupe moin de ressources le Dbcombox c'est fait pour alimenter un camps de base de données ou les valeur sont a choisir .

[didi59650]

OK je vais travailler avec combobox.
j'ai par exemple un bouton qui donne dans un richedit la valeur de X
Dans la liste de mon combobox j'ai mode 1 et 2, si je choisi mode 1 lorsque j'appuie sur le bouton la valeur 1 s'affiche (z:=1) et si c'est le mode 2 z:=2;
Comment je peux faire cela?

[cfalcot]

Ceci par exeple (non tester):

Code :

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

1
2
3
4
5
6
procedure TForm1.Butto1Click(Sender: TObject);
begin
If ComboBox1.ItemIndex=0 then
  ShowMessage('Z='+inttostr(1));
If ComboBox1.ItemIndex=1 then<div style="text-align: left;">  ShowMessage('Z='+inttostr(2));
end;</div>

[didi59650]

ok merci, en fait dans procedure TForm1.ComboBox1Change(Sender: TObject); je ne met jamais rien

[cfalcot]

Si tu ne t'en sert pas, tu peut la virrer...