Компонет Edit: Как запретить ввод буквенных символов

← →
Ganjo (2003-10-30 18:23) [0]

Привет друзья.
Подскажите пожалуста как в компоненте Edit запретить ввод буквенных символов а позволить только цыфры. я попробывал такой вариант: на событие OnKeyPress прописать if(key<"0") or (key>"9")then Key:=#0; вобще то работает но не работает ни BackSpase ни пробел но ето неудобно. Как мне решить проблему?

← →
Sandman25 (2003-10-30 18:30) [1]

Добавить проверку на другие нужные символы (BackSpace)

← →
qwe (2003-10-30 18:30) [2]

MaskEdit

← →
Ganjo (2003-10-30 18:37) [3]

> Sandman25 © (30.10.03 18:30) [1]
> Добавить проверку на другие нужные символы (BackSpace)

но как?
я попробывал поставить условие на (BackSpace):
if Key=#8 then Key:=#8 (оставляем текущий символ) но почемуто перестало работать вобще и ре реагирует на никакие клавиши

← →
Sandman25 (2003-10-30 18:39) [4]

if not (Key in ["0".."9", Chr(VK_BACK))]) then
Key := #0;

← →
Ganjo (2003-10-30 18:40) [5]

> qwe (30.10.03 18:30) [2]
> MaskEdit

а через MaskEdit мне неохота переписывать пол программы

← →
Chlavik (2003-10-30 18:46) [6]

SetWindowLong я просто не помню какой параметр..F1..

← →
Ganjo (2003-10-30 18:48) [7]

> Sandman25 © (30.10.03 18:39) [4]
> if not (Key in ["0".."9", Chr(VK_BACK))]) then
> Key := #0;

Большое спасибо заработало. но всетаки одна ")" лишняя но ето случайность. Еще раз спасибо

← →
Ganjo (2003-10-30 18:49) [8]

> Sandman25 © (30.10.03 18:39) [4]
> if not (Key in ["0".."9", Chr(VK_BACK))]) then
> Key := #0;

Спасибо все вышло if not (Key in ["0".."9", Chr(VK_BACK))]) then
Key := #0; можно if not (Key in ["0".."9", #8]) then
Key := #0;

← →
Sandman25 (2003-10-30 18:52) [9]

Я предпочитаю Chr(VK_BACK) для понятности. В крайнем случае, использую с комментарием: #8 {backspace}

Компонет Edit: Как запретить ввод буквенных символов Найти похожие ветки