Скачать: CL | DM;

Компонет 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}

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.978 c