Combobox Bloquer la saisie d'un texte non present dans la combobox [Résolu]
dimdidi
Contributeur Dernière intervention
3 juillet 2015
- 15 déc. 2005 à 18:06
- Messages postés
- 26
- Date d'inscription
- mercredi 20 juillet 2005
- Dernière intervention
- 18 juillet 2006
- Messages postés
- 1293
- Date d'inscription
- mardi 28 octobre 2003
- Statut
A voir également:
- Delphi combobox indexof
- Combobox delphi - Meilleures réponses
- Delphi combobox style - Meilleures réponses
- Controle de saisie d'un text box ✓ - Forum - C# / .NET
- Nombre d'occurence dans une plage de données d'une valeur saisie dans un text bo ✓ - Forum - Visual Basic 6
- VBA - Bloquer la saisie d'une TextBox entre deux numeriques ✓ - Forum - Visual Basic 6
- Déclencher un timer apres la saisie d'un text ✓ - Forum - Visual Basic 6
- Saisie dans un msflexgrid avec zone de texte et combobox - Codes sources - Visual Basic / VB.NET (Formulaire)
3 réponses
Meilleure réponse
- Messages postés
- 1293
- Date d'inscription
- mardi 28 octobre 2003
- Statut
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
115 internautes nous ont dit merci ce mois-ci
- Messages postés
- 446
- Date d'inscription
- vendredi 7 novembre 2003
- Dernière intervention
- 8 octobre 2008
Bonjour,
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;
Dom
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;
Dom
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.