|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.05.2014, 11:27 | #1 |
Пользователь
Регистрация: 22.03.2014
Сообщений: 14
|
Ограничения для Edit'а
Добрый день! Подскажите пожалуйста - есть два едита: в первый нужно вводить только цифры от 0 до 3, а во второй только целые числа. Как это возможно реализовать!
|
30.05.2014, 11:36 | #2 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 254
|
В обработчике события KeyPress читаете код нажатой клавиши клавиатуры, а дальше пишите проверочные условия... Если символ не допустим, то стираете его (отменяете его вывод в едит)
помогать студентам - моя вторая профессия
|
30.05.2014, 11:55 | #3 |
Форумчанин
Регистрация: 26.01.2007
Сообщений: 278
|
Было бы хорошо ещё назвать язык. Edit'ы есть везде.
Delphi Код:
|
30.05.2014, 18:13 | #4 |
Пользователь
Регистрация: 22.03.2014
Сообщений: 14
|
Да, делфи. Спасибо большое! Но сейчас проверил - не работает =( Процедуры поставил в самом верху текста - но как то он не реагирует - че хочу то и ввожу
Код:
|
30.05.2014, 18:23 | #5 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
ZdSaliery, я не понял, как это вам удалось так " доработать " процедуру-обработчик - удалить var Key: Char из списка аргументов и вставить куда не надо.
Так, как написал ALT, все работает. И если '0..3' - тоже, только 0,1,2,3 вводится. |
30.05.2014, 18:33 | #6 |
Пользователь
Регистрация: 22.03.2014
Сообщений: 14
|
ну да, но по другому дебагер выдает кучу ошибок
Код:
|
30.05.2014, 18:42 | #7 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
Вы как делаете ? У вас есть такой Edit32, или вы сами такой придумали?
Объясняю по шагам: У меня один Edit - называется Edit1, у вас - не знаю какой. Тык на Edit1, тык на События(Events),тык, тык-тык на ObKeyPress, и в procedure TForm1.Edit1KeyPress(Sender: TObject;var Key: Char ); между begin .. end вставить Код:
|
30.05.2014, 18:47 | #8 |
Пользователь
Регистрация: 22.03.2014
Сообщений: 14
|
type_Oleg спасибо огромаднейшее :D особенно за тык-тык :D два дня не спал, извините, еще раз за тупости :D
Все сделал, все получилось! Спасибо можно закрывать! Последний раз редактировалось ZdSaliery; 30.05.2014 в 19:12. Причина: up |
30.05.2014, 19:12 | #9 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,499
|
|
30.05.2014, 19:59 | #10 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,551
|
Для чисел проще использовать TSpinEdit.
E-Mail: arigato.freelance@gmail.com
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как правильно составить ограничения для оптимизационной задачи? | Энжи | Помощь студентам | 7 | 30.05.2011 17:32 |
Ограничения | Flatterer | Фриланс | 1 | 08.03.2010 20:16 |
Одна процедура для всех Edit(ов) | SoftKoc | Общие вопросы Delphi | 7 | 23.01.2010 13:44 |
Фокус для Edit'a | Detka | Помощь студентам | 39 | 12.02.2009 22:44 |
PopupMenu для формы свое, а для Edit - стандартное Виндоус | yaver | Общие вопросы Delphi | 4 | 10.11.2008 15:03 |