Bonjour à tous


voila alors j'ai un ODBC configuré pour mysql avec easy php tourne derriere.
-----
je suis donc relier a ma base de données.
----
Dans la table entreprise j'ai deux champs : code entreprise et nom entreprise

J'ai fais une frame ou dessus je liste dans un listbox1 le code entreprise
et dans la listbox2 le nom de l'entreprise

avec le code suivant: ( je clique sur un bouton radio pour que sa lance l'operation)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFrame_ajt_entreprise.RadioButton1Click(Sender: TObject);
var i, num_champs: integer;
S: string;
begin
 
 
for i:= 1 to DataModule1.table_entreprise.RecordCount do
  begin
     ListBox2.Items.add(vartostr (DataModule1.table_entreprise.Fields[0].Value));
     ListBox1.Items.add(vartostr (DataModule1.table_entreprise.Fields[1].Value));
     DataModule1.table_entreprise.Next;
  end;
 
end;

jusqu'ici pas de soucis tout s'affiche bien.

Par contre j'aimerais savoir comment en selectionnant dans ma listbox (le code entreprise )
, le nom de l'entreprise de ma deuxieme listbox peut se mettre en paralelle?

Exemple:

01 hp
54 nike

Quand je clique sur 54 ma deuxieme listbox point automatiquement sur nike.

Merci de votre aide.

et au passage j'ai créer donc un bouton radio pour lancer ceci, car je ne sais pas comment le lancer directement dans une listbox ( j'ai essayer plein d'evenement; on click, on change...)


Merci et bonne soirée à tous.