DBComboBox?

Version imprimable

09/05/2006, 11h26
didi59650

DBComboBox?

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?
09/05/2006, 11h42
didi59650
j'ai deja compris comment faire une liste meme si le choix ne s'affiche pas quand je le selectionne
Code:

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

Salut,

Dans le ComboBox1Change(Sender: TOBject)
Code:

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

09/05/2006, 12h42
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.

j'ai tapé

Code:

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

09/05/2006, 12h53
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
09/05/2006, 13h05
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 .
09/05/2006, 13h20
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?

Ceci par exeple (non tester):

Code:

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>

09/05/2006, 13h31
didi59650

ok merci, en fait dans procedure TForm1.ComboBox1Change(Sender: TObject); je ne met jamais rien
09/05/2006, 13h37
cfalcot

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