Discussion :

[b.bilel]

Salut ; Je travaille avec D7 , et j'ai deux composants :un Dbcombobox1 et un Label1
Items du dbcombobox1 contient 'a' , 'b' , 'c' .
je voudrais changer la valeur caption d'un label1 quand dbcombobox1 change d'item.
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
if dbcombobox2.Itemindex = 0 then Label5.Caption:= 'a'
else label1.Caption :='';
 
if dbcombobox2.Itemindex = 1 then Label5.Caption:= 'b'
else label1.Caption :='';
 
if dbcombobox2.Itemindex = 2 then Label5.Caption:= 'c'
else label1.Caption :='';
end;
end.

Le problème c'est que quand je met item0 et item1 du dbcombobox1 , label1 ne change pas de caption , par contre item2 change le caption du label1 en 'c' . J'èspere que je me suis bien fait comprendre .Merci

[Graffito]

Label5 ???

then Label5.Caption:= xxx

[ShaiLeTroll]

Label5 ???

[Mode Donneur de Leçon ON]
Je souligne la remarque de Graffito qui est tombé à l'oubli, b.bilel nomme tes Label\Combo avec un nom clair et compréhensible pour que si un jour tu reviens dessus tu sache à quoi correspond tes composants, j'ai des application à maintenir, avec des trucs du genre Combo17 ou Label52, et c'est la misère quand tu dois ensuite selon une option les cacher ou non par ce que cela n'était pas prévu à l'origine
[Mode Donneur de Leçon OFF]

Il ne faut pas perdre à l'esprit qu'un DBComboBox a un DataSet associé, avec un DataSet en Edition, normalement, le Champ contient ce qu'il y a dans le Texte ... sinon Text est hérité depuis le TControl ... mais contrairement à un TComboBox la propriété Text est juste publique et non publiée

Au cas où, un code qui fonctionne tout le temps avec n'importe quel composant DB :

Code :

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

1
2
3
4
procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
  Label1.caption := dbcombobox2.DataSource.DataSet.FieldByName(dbcombobox2.DataField).AsString;
end;

[banban54]

je voudrai chagé la valeur caption d'un label1 quand dbcombobox1 change d'item.

Code :

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

1
2
3
 
if dbcombobox2.Itemindex = 2 then Label5.Caption:= 'c'
else label1.Caption :='';

Le probléme est quand je met item0 et item1 du dbcombobox1 , label1 ne change pas de caption , par contre item2 change le caption du label1 en 'c' . J'éspere que je me suis bien fait comprendre .Merci

Cette condition est toujours testée en dernier, donc tu auras toujours ce résultat!

Code :

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

1
2
3
4
5
6
7
procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
  if dbcombobox2.Itemindex = 0 then Label1.Caption:= 'a'
  else if dbcombobox2.Itemindex = 1 then Label1.Caption:= 'b'
  else if dbcombobox2.Itemindex = 2 then Label1.Caption:= 'c'
  else label1.Caption :='';
end;

ou:

Code :

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

1
2
3
4
procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
   Label1.caption := DBComboBox1.Items.Names[DBComboBox1.ItemIndex];
end;

à plus

[Rayek]

A la place des if, il serait mieux d'utiliser un case

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
  case dbcombobox2.Itemindex of
    0: Label1.Caption:= 'a';
    1: Label1.Caption:= 'b';
    2: Label1.Caption:= 'c';
    else label1.Caption :='';
  end;
end;

Sinon, si c'est pour afficher le contenu du combobox dans le label

Code :

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

1
2
3
4
5
 
procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
  Label1.caption := dbcombobox2.Text;
end;

[banban54]

Sinon, si c'est pour afficher le contenu du combobox dans le label

Code :

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

1
2
3
4
5
 
procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
  Label1.caption := dbcombobox2.Text;
end;

il me semble que combobox2.Text existe mais pas dbcombobox2.Text
à +

[b.bilel]

Salut ; Je suis trés heureux d'avoir tout ces jolies codes , sa me rassure
Merci pour l'aide que vous nous offré .