Combobox Bloquer la saisie d'un texte non present dans la combobox [Résolu]
dimdidi26
Messages postés mercredi 20 juillet 2005Date d'inscription
18 juillet 2006
Dernière intervention
-
13 déc. 2005 à 12:40 - Dernière réponse : sp401293
Messages postés mardi 28 octobre 2003Date d'inscriptionContributeurStatut
3 juillet 2015
Dernière intervention
- 15 déc. 2005 à 18:06
Je voudrais faire une recherche dans une combobox en tapant mon texte au fur et a mesure
(ce qui est fait deja avec style:=csDropDown).
(style:=csDropDownList ne le fait pas)
Mais si la derniere lettre taper donne un texte qui n'existe plus dans ma Combobox, je voudrais annuler la dernier touche saisie ou l'empecher.
On peut savoir si le texte n'existe pas avec ItemIntex=-1
Vu autrement Je ne voudrais empecher un texte qui n'existe pas dans la Combobox
sp401293
Messages postés mardi 28 octobre 2003Date d'inscriptionContributeurStatut
3 juillet 2015
Dernière intervention -15 déc. 2005 à 18:06
+3
Utile
Il faut que tu récupères la touche préssée sur l'événement keydown et
que tu l'ajoutes au texte déjà présent dans le combo. Tu testes ensuite
la chaine ainsi obtenue sur les items du combo. Si elle est présente,
tu accepte la touche, sinon tu l'annules
Simon
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
En vitesse :
Une variable globale Sauv déclaré comme String et:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Combobox1.Items.IndexOf(Combobox1.text)=-1 then begin
sauv:=copy(sauv,1,length(sauv)-1);
Combobox1.Text:=sauv;
combobox1.SelStart:=length(sauv);
end;
end;
Procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
sauv:=sauv+char(Key);
end;
