empêcher la saisie dans une combobox

J'ai passé un peu de temps à trouver une solution pour empêcher la saisie dans une combobox
Je vous l'indique ci-dessous.(Je suis preneur d'une solution plus simple, merci d'avance)

A l'événement 'appui sur une touche' je remplace la touche par un code nul.


procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
Key:=chr(0);
end;

ouais c cool, meme si je voit pas trop l'interet...Si je veut que l'utilisateur n'ecrive pas dans mon ComboBox je mettrais son Style sur csDropDownList...

Un Grand Merci à Toi, c'est exactement la propriété que je ne connaissais pas et que j'ai beaucoup de plaisir à découvrir.

L'intérêt, c'est que je veux être sur que l'utilisateur à fait un choix sans écrire lui-même quelque chose car je vais enregistrer ce choix.
Ta solution me va très bien et en plus elle pourra peut-être servir à d'autre (c'est du moins ce que je souhaite)
Encore Grand Merci



-------------------------------
Réponse au message :
-------------------------------

> ouais c cool, meme si je voit pas trop l'interet...Si je veut que l'utilisateur n'ecrive pas dans mon ComboBox je mettrais son Style sur csDropDownList...

bah de rien, ravi d'avoir pu rendre service ;o)