|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
17.01.2008, 23:22 | #1 |
Форумчанин
Регистрация: 25.12.2007
Сообщений: 655
|
Как написать код для блокировки
Написал вот такой код для блокировки ввода букв в Edit1.Но он заблокировал ввод точек и запятых,
как разрешить еще к цифрам ввод точки и запятой if not ((Key>='0')and(Key<='9')or(Key=#8)) then Key:=Chr(0);
За частые поиски был забанен во всех известных
поисковых системах! |
17.01.2008, 23:29 | #2 |
Форумчанин Подтвердите свой е-майл
Регистрация: 20.11.2007
Сообщений: 500
|
if
not ((Key>='0')and(Key<='9')or(Key=#8)o r(Key=#46)or(Key=#44)) then Key:=Chr(0); |
18.01.2008, 15:23 | #3 |
Участник клуба
Регистрация: 19.12.2007
Сообщений: 1,100
|
В событие OnKeyPress ставишь
Код:
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ... |
18.01.2008, 15:27 | #4 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
Тагда лучше так
Код:
|
18.01.2008, 21:31 | #5 |
Форумчанин
Регистрация: 25.12.2007
Сообщений: 655
|
А как сделать наоборот,заблокировать кнопки а буквы чтобы вводились
За частые поиски был забанен во всех известных
поисковых системах! |
18.01.2008, 22:13 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Так то же самое, только в квадратных скобках перечисляешь символы всех букв.
['a'..'z','A'..'Z','а'..'я','А'..'Я' ,'ё','Ё']; |
19.01.2008, 09:50 | #7 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Поиск используем, сколько можно одно и тоже писать. Закрыто.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как написать ICQ ? | voron29 | Работа с сетью в Delphi | 1 | 04.07.2008 14:59 |
задача под windows,помогите написать.Надо написать на Borland C++Builder 6. | eddddii | Помощь студентам | 9 | 23.05.2008 17:04 |
Помогите написать прогу!Среди заданных целых чисел k, l, m найти пары кратных.Написать по проще чемЭесть | vdv08 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 04.04.2008 16:56 |
Прога для блокировки компа | Legolas88 | Общие вопросы Delphi | 2 | 05.02.2008 08:04 |