Discussion :

[KOUTO]

Bonsoir de nouveau moi avec mes questions....

J'ai 2 questions:

1 * Je fais cette procedure sur un bouton radio et lorsque je coche sa se remplie dans ma listbox.
Mais il y aurait-il une methode plus simple pour ne pas a avoir a cliquer sur le bouton pour activé ceci. Mon exemple est dans une listbox mais j'aime le meme soucis avec un combobox. (en gros mettre directement le code dans la listbox ou la combobox)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Tframe_recherche_ent.RadioButton1Click(Sender: TObject);
var i,a, num_champs: integer;
S: string;
begin
 
 
for i:= 1 to DataModule1.table_entreprise.RecordCount do
  begin
     ListBox1.Items.add(vartostr (DataModule1.table_entreprise.Fields[1].Value));
     DataModule1.table_entreprise.Next;
  end;
 
end;

------------------------------------------------------------
------------------------------------------------------------

2 * J'ai deux combobox et un bouton radio pour activer ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.RadioButton1Click(Sender: TObject);
var i,a, num_champs: integer;
S: string;
begin
 
for i:= 1 to DataModule1.table_entreprise.RecordCount do
  begin
     ComboBox2.Items.add(vartostr (DataModule1.table_entreprise.Fields[1].Value));
     ComboBox3.Items.add(vartostr (DataModule1.table_entreprise.Fields[0].Value));
     DataModule1.table_entreprise.Next;
  end;

sur le bouton radio je met ceci: (sa marche m'ai je suis obligé de cliqué a chaque fois)

Code :

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

1
2
3
4
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
ComboBox3.ItemIndex:=comboBox2.ItemIndex;
end;

ma question est: comment faire pour que en choississant dans la combobox2 , le resultat corespondant s'affiche dans ma combobox3. Je me souvient que Cl@udius m'avait aider pour les listbox:

Code :

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

ListBox2.ItemIndex:=ListBox1.ItemIndex;

Merci à tous pour votre aide.

Kouto

[dietrich]

appelle tes methoes d initialisation de ta listbox et combobox dans le formload ou formactivate

[edam]

Code :

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

1
2
3
4
procedure TForm2.combobox2Click(Sender: TObject);
begin
ComboBox3.ItemIndex:=comboBox2.ItemIndex;
end;

[Rayek]

Bonsoir de nouveau moi avec mes questions....

J'ai 2 questions:

1 * Je fais cette procedure sur un bouton radio et lorsque je coche sa se remplie dans ma listbox.
Mais il y aurait-il une methode plus simple pour ne pas a avoir a cliquer sur le bouton pour activé ceci. Mon exemple est dans une listbox mais j'aime le meme soucis avec un combobox. (en gros mettre directement le code dans la listbox ou la combobox)

L'utilisation d'un dbLookupComboBox ou DbLookUpListBox serait le mieux :

http://delphi.developpez.com/faq/?pa...omboboxcomment

2 * J'ai deux combobox et un bouton radio pour activer ceci

Même remarque que plus haut, en plus ca permettrais de n'avoir qu'un seul composant au lieu de 2 Combobox