Combobox Bloquer la saisie d'un texte non present dans la comboboxRésolu

Question

Bonjour,

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

J'esp&#232;re que c'est assez clair.

Si quelqu'un a une idee !
Merci d'avance. 



Dimdidi

sp40 · Accepted Answer

Il faut que tu r&#233;cup&#232;res la touche pr&#233;ss&#233;e sur l'&#233;v&#233;nement keydown et
que tu l'ajoutes au texte d&#233;j&#224; pr&#233;sent dans le combo. Tu testes ensuite
la chaine ainsi obtenue sur les items du combo. Si elle est pr&#233;sente,
tu accepte la touche, sinon tu l'annules 

Simon

dominique.stock · Answer

Bonjour,

En vitesse :
Une variable globale Sauv d&#233;clar&#233; 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;

Dom

dimdidi · Answer

Merci pour la r&#233;ponse, mais ca ne marche pas.

Autrement l'id&#233;e est l&#224;.


Dimdidi

Combobox Bloquer la saisie d'un texte non present dans la combobox

3 réponses

Votre réponse