Discussion :

[wesloff]

Bonjour a tous,

J'utilise une combobox dans mon projet mais j'aimerais que l'utilisateur du programme ne puisse que choisir ce que j'ai predefinis dans cette combobox, et donc ne pas entrer de texte lui meme ..
Si je change la propriété Style et que je la met sur csDropDownList au lieu de csDropDown, effectivement on ne sait rien introduire dans la combobox mais ce que j'avais mis en combobox1.texte n'est plus pris en compte
________
Par exemple > avec csDropDown > choix de votre | -- OS --| avec la liste qui se deroule .. winxp, vista ..

Mais avec csDropDownList cela efface la mention "-- OS --" .

Est il possible d'en plus de bloquer le fait que la combobox est editable de laisser l'exemple/mention ??

Merci d'avance,

wes

[valoji]

Bonjour,

Sur ta combobox tu laisse le style : csDropDown

Sur les évenements ONKEYDOWN et ONKEYPRESS tu empêche la saisi du clavier.

Sur l'évènement Onexit
Si le combobox.text est null alors combobox.text = '--OS--

Valoji

[Jeankiki]

Pourquoi ne pas mettre -- OS -- aussi dans Items ?

[BuzzLeclaire]

Bonjour wesloff,

Tu devrais déjà utilisé la propriété items de ton combobox pour le remplir et utilisé le item.Index pour le positionner correctement. (sachant que item.index = -1 quand c'est vide)

Ensuite dans l'evement on keydown de ton combobox :

Code :

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

1
2
3
4
5
procedure TForm1.ComboBoxKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not CharInSet(Key, [Chr(VK_BACK), Chr(VK_DELETE)]) then Key := #0;
end;

Dans cette exempple on autorise le suppr et le back.

[wesloff]

Tout d'abord, merci d'avoir pris le temps de repondre a ma question ..
Ensuite voila la façon dont je remplis ma combobox :

Code :

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

1
2
3
4
5
6
combobox1.clear;
combobox1.Items.Add(winn xp);
combobox1.Items.Add('win vista');
combobox1.Items.Add('win 7');
combobox1.Items.Add('Mac Os');
combobox1.Items.Add('linux');

Je voudrais dans l'absolu laisser le style de la combobox sur csDropDownList
et en plus faire en sorte que la combobox affiche en "premiere ligne" la ligne -- OS -- .. a la place d'un blanc ..
mais si j'essaie de mettre par exemple : combobox1.items.string[-1]:='-- OS --'; cela ne fonctionne pas malheureusement pour moi, il est pas possible de faire un combobox1.items.add.stringd[-1]:='-- OS --'; apparement ..

Voyez vous une solution sans utiliser les evenements ONKEYDOWN et ONKEYPRESS ??

j'ai aussi essayer des commandes comme :

Code :

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

1
2
3
combobox1.items.ValueFromIndex[-1]:='-- OS --';
// ou 
combobox.items.indexof('-- OS --');

mais sans succés ..

Merci d'avance de vos reponses !

Bien à vous,

Wesloff

[BuzzLeclaire]

@wesloff,

Mais pourquoi tu essai d'utiliser le -1 ? j'ai du mal m'expliquer...

Si tu veux mettre ton '--- OS ----' mets le dés le début fais un Add avec.

Ensuite à toi d'afficher index 0 qui sera le '--- OS ----', et les autres 1,2 pour tes OS.

Mettre le itemIndex à -1 sert simplement a retirer ton combobox la séléction et mette un blanc à la place. A toi de faire en sorte d'avoir l'itemindex à 0 quant-il le faut...

[wesloff]

ok c'est deja plus clair dans ma tete, et ce n'est pas que tu expliques mal, c'est plutot moi qui patauge lol ..
Et donc avec cette methode, je retrouve mon '-- 0S --' quand je deroule la combobox, chose que je ne veux pas en fait .. je voudrais juste que ce soit afficher quand le user du prog n'a encore toucher a rien, mais une fois que la liste a été déroulée, il ne doit pas etre visible dans cette liste en question ..
Je ne sais pas si je me fais bien comprendre ..

[BuzzLeclaire]

Ok.

Alors fait toi une petite fonction, du genre :

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
19
20
21
22
23
24
25
26
 
type
  TForm1 = class(TForm)
//...
  private
    { Déclarations privées }
    procedure InitCombo;
  public
    { Déclarations publiques }
  end;
 
implementation
 
// ...
procedure Tform1.InitCombo;
begin
 
  // Initialisation
  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('MacOs');
  ComboBox1.Items.Add('Linux');
  ComboBox1.Items.Add('Windows');
 
  ComboBox1.ItemIndex := -1;
  ComboBox1.Text := '=== OS ===';
end;

Utilisation :

Code :

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

 initCombo; // tout simplement