Valeur par défaut ComboBox

Salut à tous,

J'ai un combobox, je veux qu'à la création de la fiche la valeur retournée soit déjà visible dans la ComboBox sans que l'utilisateur ne clique sur la flèche. La ComboBox est de style csDropDownList. et on sais qu'à la création de la fiche la ComboBox est vide et si on clique sur la flèche on peut voir la liste des imprimante par l'exécution de l'évènement OnDropDown.

Code:

---

ComboBox1.Items := Printer.Printers;

---

J'ai programmé de tel sorte que le choix de l'imprimante dans la liste, une insertion de l'index et du nom de la machine se fait dans une table. Cela à pour bute de d'imprimer de façon permanente sur une imprimante donnée.
Voilà ce que je veux : comment faire de tel sorte que dans la fiche du choix de l'imprimante, quand le form se créée, la valeur rétournée par la requête suivante soit déjà visible dans la combobox sans avoir à cliquer sur la flêche :

Code:

---

1 2 3 4 5 6

Ordi := ComputerName(); Query_Imp.sql.Clear; Query_Imp.sql.Add('Select ci_idx as idx from config_imp where ci_poste = ' + QuotedStr(Ordi)); Query_Imp.Open; idx := Query_Imp.fieldbyname('idx').AsInteger;

---

Merci à vous.

Bonjour,

Je pense que le seul élément commun entre la liste des imprimantes (qui sert pou générer ta liste déroulante) et les informations que tu stockes doivent être le nom de l'imprimante.

Aussi dans ta requête ramener l'index n'est pas suffisant, il faudrait aussi ramener le nom, chercher dans les items de la liste déroulante ce nom et affecter son index à la propriété ItemIndex du TComboBox.

Salut,

Merci pour vos indication. Voilà ce que j'ai fais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm36.FormCreate(Sender: TObject); var Ordi, imp : string; idx : Integer; begin Ordi := ComputerName(); Query_Imp.sql.Clear; Query_Imp.sql.Add('Select ci_idx as idx, ci_nom as nom from config_imp where ci_poste = ' + QuotedStr(Ordi)); Query_Imp.Open; idx := Query_Imp.fieldbyname('idx').AsInteger; imp := Query_Imp.fieldbyname('nom').AsString; if Query_Imp.IsEmpty = true then ComboBox1.ItemIndex := idx Else Begin Printer.PrinterIndex := idx; ComboBox1.ItemIndex := idx end; end;

---

Pouvez-vous m'aider à réaliaser ceci?

Citation:

---

il faudrait aussi ramener le nom, chercher dans les items de la liste déroulante ce nom et affecter son index à la propriété ItemIndex du TComboBox.

---

Merci.