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)
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
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)
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:
ListBox2.ItemIndex:=ListBox1.ItemIndex;
Merci à tous pour votre aide.
Kouto
Partager