![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 01.11.2007
Сообщений: 27
|
![]()
Я пишу программу и мне понадобилось запретить ввод с клавиатуры всех букв и символов (кроме запятой), чтобы вводились лишь цифры. Так же мне нужно чтобы при вводе к примеру запятой: "," - счётчик нажатия на эту клавишу увеличивался. Помогите пожалуйста мне с этим!
![]()
Генерация случайных чисел — слишком важное дело, чтобы оставлять её на волю случая.
Scientia potentia est |
![]() |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Если в компонентах, то рули события OnKeyPress или OnKeyDown
Проверяй если Key<>нужному символу то Key:=0
I'm learning to live...
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 26.04.2007
Сообщений: 440
|
![]()
Например в edit-процедура keydоwn- смотришь какая клавиша была нажата:
Код:
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 01.11.2007
Сообщений: 27
|
![]()
Большое спасибо за помощь)
Генерация случайных чисел — слишком важное дело, чтобы оставлять её на волю случая.
Scientia potentia est |
![]() |
![]() |
![]() |
#5 |
я получил эту роль
Старожил
Регистрация: 25.05.2007
Сообщений: 3,694
|
![]()
TMaskEdit не подойдёт?
пыщь
|
![]() |
![]() |
![]() |
#6 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]()
Все просто:
Код:
|
![]() |
![]() |
![]() |
#7 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
![]() |
![]() |
![]() |
![]() |
#8 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
![]() |
![]() |
![]() |
![]() |
#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; Можно конечно было упростить, но с похмура не охото мозги напрягать ![]() Исходник во вложении! |
![]() |
![]() |
![]() |
#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 |