Bloquer le clavier

slt a tous
jai une edit auquelle je vais ecrire quelque chiffre qui existe dans des bouton
comment je peut bloqué l'acces au lettre de clavier
merci d'avance

:f1: propriété ReadOnly.

Citation:

---

Envoyé par gadalla

jai une edit auquelle je vais ecrire quelque chiffre ...
comment je peut bloqué l'acces au lettre de clavier

---

Par exemple, dans l'évènement OnKeyDown de ton Edit :

Code:

---

1 2	if not (Key in ['0'..'9']) then Key := 0;

---

Un label ne serait il pas plus pratique ?!?

Citation:

---

Envoyé par Clorish

Un label ne serait il pas plus pratique ?!?

---

On ne peut pas écrire dans un Label !?
:koi:

J'ai cru comprendre, qu'il voulait restraindre la saisie aux chiffres.

Si c'est le cas:

:faq:
http://delphi.developpez.com/faq/?pa...propri#numbers

:roll:

je veut bloqué tous les touches SAUF les chiffre

Code:

---

1 2 3

if not (Key in ['0'..'9']) then Key := 0;

---

mais quesque ça veut dire le rouge???
je peut le remlpacé avec un message d'erreur???

merci d'avance

Citation:

---

Envoyé par gadalla

mais quesque ça veut dire le rouge???

---

Il informe Windows que tu annules la touche de frappe. C'est ça en fait qui bloque les touches autres que les chiffres.

Citation:

---

Envoyé par gadalla

je peut le remlpacé avec un message d'erreur???

---

Non (car les touches ne seraient plus bloquées), mais tu peux mettre un message d'erreur en plus.

Code:

---

1 2 3 4 5

if not (Key in ['0'..'9']) then begin Key := #0; MessageDlg('Vous ne pouvez frapper que des chiffres ici.', mtError); end;

---

Mais habituellement, on fait plutôt un beep qu'un message d'erreur dans ce genre de cas :

Code:

---

1 2 3 4 5

if not (Key in ['0'..'9']) then begin Key := #0; Windows.MessageBeep(MB_ICONERROR); end;

---

merci c resolu:)