Texte d'un Combobox

Résolu
Signaler
Messages postés
92
Date d'inscription
samedi 21 janvier 2006
Statut
Membre
Dernière intervention
10 octobre 2010
-
Messages postés
2
Date d'inscription
dimanche 23 avril 2006
Statut
Membre
Dernière intervention
17 août 2006
-
Bonjour,

Quelqu'un pourrait-il me dire comment faire pour protéger un texte d'un combobox ( le même style que readonly d'un edit)

merci d'avance
A voir également:

7 réponses

Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
Hello,



Si tu mets ta combo a DropDownList et bien hop voici ta combo verrouillée en ecriture.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,
Essaye comme ceci :

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['a'..'z','A'..'Z'] Then Key := #0;
end;



@+
Cirec
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
salut,

plus radical

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

Key := #0;

end;

attention toutefois car dans les 2 solutions tu perds l'autocomplete et un conseil mets l'autodropdown à true.

@+

jlen
Messages postés
92
Date d'inscription
samedi 21 janvier 2006
Statut
Membre
Dernière intervention
10 octobre 2010

Merci les amis...
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Ah ben voilà encore une bonne chose d'appris

Merci jmp77

@+
Cirec
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
oui j'ai eu du mal à la retrouver dans la propriete style

@+

jlen
Messages postés
2
Date d'inscription
dimanche 23 avril 2006
Statut
Membre
Dernière intervention
17 août 2006

Bonjour,

Quelqu'un pourrait-il me dire comment faire pour déplaçer le curseur d'un champ de saisie vers un autre ( edit ou combobox peut importe ) ???

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
  t[1,1]:=ComboBox1.text;
  end;
end;

il me manque quelque chose mais ché pas quoi !!!     merci