Discussion :

[sondo]

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 :

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

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 :

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

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.

[Aka Guymelef]

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.

[sondo]

Salut,

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

Code :

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

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?

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.