[AlexandrV]

как у Memo запретить вводить буквы и др символы только цифры

[Страдалецъ]

Какой-то изврат - в текстовое поле запретить ввод текста. На кой бес вам это нужно-то? Что, реально многострочный ввод цифр?

[AlexandrV]

Ну хочу сделать диологовое окно для всего и для Message и для Input как String так и Integer впрочем сделаю текстовое поле

[Mrak]

в OnKeyPress прописать

Код:

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

Почему сразу изврат? Такие случаи бывают. Защита от дурака-пользователя (или дуры)

[AlexandrV]

Это запрет ввода цифр а мне на оборот букв

[Mrak]

ха! на че спорим???

[AlexandrV]

Не на что я просто этим кодом уже пользовался. Все проще у текстового поля есть запрет ввода всего кроме цифр

[Mrak]

странно, у меня работает
делай внимательнее
может not в условии забыл?
или событие не onkeypress?

[AlexandrV]

Можешь код выслать тоесть проэкт сам. А вообще он запрещает ввод только цифр

[Mrak]

проект - нет
он слишком дорог для меня))

да я прям только что кинул мемо и в обработчик онкейпресс засунул ту строку

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

работает, только цифры можно вводить

[AlexandrV]

Не скажешь что обозначает символ #0 по идеи должна обозначать разрешить ввести тоесть тогда будет звучать так
Если нажата одна из цифр то разрешаем ввод но тогда в принцепе должно то что запрещает ввод всему остальному.

[Mrak]

просто скопируй и сунь в онкейпресс

перевод
ЕСЛИ нажата НЕ цифра ТО присвоить код "отсутствие символа"

[AlexandrV]

Ах да совсем забыл про оператор Not

[Mrak]

Жжешь, чувак
Админы, срочно нужен смайл рукалицо))