|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.11.2007, 16:53 | #1 |
Пользователь
Регистрация: 01.11.2007
Сообщений: 27
|
Запрет ввода с клавиатуры букв
Я пишу программу и мне понадобилось запретить ввод с клавиатуры всех букв и символов (кроме запятой), чтобы вводились лишь цифры. Так же мне нужно чтобы при вводе к примеру запятой: "," - счётчик нажатия на эту клавишу увеличивался. Помогите пожалуйста мне с этим!
Генерация случайных чисел — слишком важное дело, чтобы оставлять её на волю случая.
Scientia potentia est |
01.11.2007, 17:00 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Если в компонентах, то рули события OnKeyPress или OnKeyDown
Проверяй если Key<>нужному символу то Key:=0
I'm learning to live...
|
01.11.2007, 17:15 | #3 |
Форумчанин
Регистрация: 26.04.2007
Сообщений: 440
|
Например в edit-процедура keydоwn- смотришь какая клавиша была нажата:
Код:
|
01.11.2007, 17:25 | #4 |
Пользователь
Регистрация: 01.11.2007
Сообщений: 27
|
Большое спасибо за помощь)
Генерация случайных чисел — слишком важное дело, чтобы оставлять её на волю случая.
Scientia potentia est |
01.11.2007, 18:17 | #5 |
я получил эту роль
Старожил
Регистрация: 25.05.2007
Сообщений: 3,694
|
TMaskEdit не подойдёт?
пыщь
|
01.11.2007, 18:34 | #6 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Все просто:
Код:
|
02.11.2007, 01:22 | #7 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
|
02.11.2007, 01:48 | #8 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
|
09.11.2007, 14:59 | #9 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Вот например так можно со счетчиком как просил.
Код: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var x:integer; begin x:=StrToInt(label1.Caption); case key of '0'..'9': begin x:=x+1; label1.Caption:=IntToStr(x); end; ',': begin x:=x+1; label1.Caption:=IntToStr(x); end; #8: begin x:=x-1; label1.Caption:=IntToStr(x); end; else Key:=Chr(0); end; end; Можно конечно было упростить, но с похмура не охото мозги напрягать Исходник во вложении! |
15.04.2010, 17:16 | #10 |
Пользователь
Регистрация: 07.03.2009
Сообщений: 52
|
народ а без KeyPress это можно сделать как нибудь????
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как защитить рабочий лист от ввода с клавиатуры, но не от действий макроса ? | valerij | Microsoft Office Excel | 7 | 28.05.2008 23:59 |
запрет редактирования | AnGrig | Компоненты Delphi | 3 | 18.10.2007 11:37 |
Запрет ввода кирилических символов | wnuks | Microsoft Office Excel | 1 | 12.07.2007 19:45 |
Запрет копирования | pinhead | Win Api | 11 | 10.01.2007 07:01 |
запрет Alt+F4 | Freedom | Общие вопросы Delphi | 2 | 09.11.2006 11:47 |