Как написать код для блокировки

[Михаил Юрьевич]

Написал вот такой код для блокировки ввода букв в Edit1.Но он заблокировал ввод точек и запятых,
как разрешить еще к цифрам ввод точки и запятой
if
not ((Key>='0')and(Key<='9')or(Key=#8))
then
Key:=Chr(0);

[Никки]

if
not ((Key>='0')and(Key<='9')or(Key=#8)o r(Key=#46)or(Key=#44))
then
Key:=Chr(0);

[Yurk@]

В событие OnKeyPress ставишь

case Key of 
0..9 :;
#46, #44, #8 :;
else
KEy:=#0;

[Sibedir]

Тагда лучше так

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

[Михаил Юрьевич]

А как сделать наоборот,заблокировать кнопки а буквы чтобы вводились

[puporev]

Так то же самое, только в квадратных скобках перечисляешь символы всех букв.
['a'..'z','A'..'Z','а'..'я','А'..'Я' ,'ё','Ё'];

[Квэнди]

Поиск используем, сколько можно одно и тоже писать. Закрыто.