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