Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.85/54: Рейтинг темы: голосов - 54, средняя оценка - 4.85
Фрилансер
67 / 37 / 2
Регистрация: 11.01.2011
Сообщений: 280
1

Как сделать чтобы в Edit1 можно было вводить только цифры

07.04.2011, 19:16. Показов 10843. Ответов 13
Метки нет (Все метки)
Как сделать чтобы в Edit1 можно было вводить только цифры
Зарание благодарю
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 07.04.2011, 19:16
Ответы с готовыми решениями:

Подправить процедуру, чтобы можно было вводить только цифры
Добрый день Всем, кто не спит! У меня вот какая проблема. У меня имеется процедура, но ее...

Как сделать, чтобы в edit можно было вводить только латинские буквы?
Как сделать чтоб в edit можно было вводить только English буквы.

Как сделать так, чтобы в строку редактирование (edit) можно было ввести только цифры и запятую?
Недавно начал изучать делфи, У меня вопрос, как можно сделать так чтобы в строку редактирования...

Как сделать чтобы в MaskedTextBox можно было вводить только цифры и буквы A-Fa-f
Как сделать чтобы в MaskedTextBox можно было вводить только цифры и буквы A-Fa-f, а именно 8 байт...

13
1337 / 988 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
07.04.2011, 19:22 2
Delphi
1
2
3
4
5

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9']) then key := #0; //перечисление всех допустимых символов
end;
end;
0
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.04.2011, 19:24 3
Delphi
1
2
3
4
5
6
7
8
9

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
 
           else   // остальные символы запрещены
               key := Chr(0);
    end;
end;
Добавлено через 53 секунды
#8 тоже нужен, чтобы убрать символ, если не то ввел...
2
79 / 15 / 6
Регистрация: 31.01.2011
Сообщений: 178
07.04.2011, 19:27 4
или так))
Delphi
1
2
3
4
5

procedure TForm2.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
    if (Key in ['0'..'9',#8]) = False then
    Key:=Chr(0);
end;
0
Комбайнёр
1606 / 704 / 77
Регистрация: 27.05.2008
Сообщений: 2,535
07.04.2011, 19:36 5
Зачем придумывать велосипед? Используйте SpinEdit из вкладки Sample
0
1337 / 988 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
07.04.2011, 19:39 6
MAcK, я вам по секрету скажу, с, где-то 2007 дельфи можно вообще
Delphi
1

Edit1.NumbersOnly := true;
и не придумывать велосипед. Кстати, это не велосипед
0
324 / 316 / 84
Регистрация: 03.03.2010
Сообщений: 1,364
07.04.2011, 19:41 7
MAcK, не все знают про тот компонент
0
Комбайнёр
1606 / 704 / 77
Регистрация: 27.05.2008
Сообщений: 2,535
07.04.2011, 19:48 8
iama, Можно. Но в спинедите есть ещё кнопачки
0
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.04.2011, 19:51 9
Кнопочками хорошо вводить небольшие числа, а большие долго...
0
Фрилансер
67 / 37 / 2
Регистрация: 11.01.2011
Сообщений: 280
07.04.2011, 19:56  [ТС] 10
iama, Спасибо !!!

Добавлено через 33 секунды
iama, Спасмбо !!!

Добавлено через 3 минуты
Sheeby, Спасибо!
0
2184 / 1254 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
07.04.2011, 19:58 11
Цитата Сообщение от iama Посмотреть сообщение
Кстати, это не велосипед
это БОЯНИЩЕЕЕЕ
0
79 / 15 / 6
Регистрация: 31.01.2011
Сообщений: 178
07.04.2011, 19:59 12
vallerik, пожалуйста)
0
Фрилансер
67 / 37 / 2
Регистрация: 11.01.2011
Сообщений: 280
07.04.2011, 20:03  [ТС] 13
Все спасибо вы мне столько примеров дали !
0
iama
07.04.2011, 20:07     Как сделать чтобы в Edit1 можно было вводить только цифры
  #14

Не по теме:

anonimus, тс же не мог его сам нагуглить...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 07.04.2011, 20:07

Как сделать, чтобы нельзя было вводить текст в TextBox, только цифры?
как сделать чтобы нельзя было вводить текст в TextBox, только цыфры

Как сделать, чтобы можно было вводить только n=< 1000 чисел
#include &lt;iostream&gt; using namespace std; int main() { int k = 0;int n;int i=0; ...

Как сделать чтобы в textbox можно было вводить только буквы?
Подскажите, как сделать чтобы в textbox можно вводить только буквы?

Калькулятор: как сделать, чтобы можно было вводить только одну запятую?
День добрый. Помогите,пожалуйста,доработать калькулятор. Основная часть у меня уже сделана,но...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru