Как в TEdit разрешить записаь только цифр?

← →
vegarulez © (2007-03-17 20:12) [0]

Всем мастерам салют!

Вопрос такого характера есть несколько Эдитов, но в одних априори могут быть только цифры.

Подскажите как в эдите можно поставить маску на ввод символов...

← →
Kolan © (2007-03-17 20:21) [1]

> Вопрос такого характера есть несколько Эдитов, но в одних
> априори могут быть только цифры.
>

Для все назначаешь оди и тот же обработчик:
if not (Key in ["0".."9", #8]) then Key := #0;

← →
Kolan © (2007-03-17 20:21) [2]

Да обработчик OnKeyPress

← →
Desdechado © (2007-03-17 20:29) [3]

Это не спасет от вставки из буфера.
Имхо, лучше проверять на цифры перед необходимой обработкой (например, по кнопке "запомнить" выполняется проверка и ругаем юзера, если он не прав).

OnChange и/или OnKeyPress

SetWindowLong(Edit.Handle, GWL_STYLE, GetWindowLong(Edit.Handle, GWL_STYLE) or ES_NUMBER). Однако, см. [3].

Как в TEdit разрешить записаь только цифр? Найти похожие ветки