Запрет ввода в Edit - Мультимедиа в Delphi - Страница 2

Hacker19_90 · 10.05.2012, 00:12

Цитата:

не работает всеравно (

это наверно потому что код BackSpace всё таки #8 а не #9
и писать тогда так

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #8]) then 
    key:=#0;
end;

Пепел Феникса · 10.05.2012, 00:41

перепутал, бывает

.

veniside · 10.05.2012, 00:51

про Ctrl+A, Ctrl+C, Ctrl+V, Ctrl+Z не забудьте )

Matrix6993 · 10.05.2012, 02:56

Спасибо, все получилось!)

ViCticus · 08.10.2013, 21:25

Цитата:

Сообщение от Matrix6993

не работает всеравно (

а если так If not (Key in ['0'..'9',#8] ) then Key:=#0;
то работает!

cyberdev · 12.10.2013, 11:51

Попробуйте удалить весь код из Edit1KeyPress и ввести все символы. Если какие-то символы не вводятся, то проблема в чем-то другом...

cyberdev · 12.10.2013, 12:00

Надо же, пока писал ответ, проблема решилась)

eval · 12.10.2013, 12:04

еще надо обрабатывать онченж, и т.д. иначе введу в едит все что не попадя. и потуги с кейпресом напрасны

10.05.2012, 00:41	#12
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	перепутал, бывает. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

10.05.2012, 00:51	#13
veniside Старожил Регистрация: 03.01.2011 Сообщений: 2,508	про Ctrl+A, Ctrl+C, Ctrl+V, Ctrl+Z не забудьте ) "Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."

12.10.2013, 11:51	#16
cyberdev Форумчанин Регистрация: 10.10.2013 Сообщений: 150	Попробуйте удалить весь код из Edit1KeyPress и ввести все символы. Если какие-то символы не вводятся, то проблема в чем-то другом... Сайт о программировании и трехмерной графике - cybersite.ucoz.net

12.10.2013, 12:00	#17
cyberdev Форумчанин Регистрация: 10.10.2013 Сообщений: 150	Надо же, пока писал ответ, проблема решилась) Сайт о программировании и трехмерной графике - cybersite.ucoz.net

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Запрет ввода букв	Евгений Уральский	Microsoft Office Excel	19	19.09.2012 12:06
Запрет нажатия кнопки и запрет неправильного ввода данных	De_Kurlzz	Помощь студентам	1	15.06.2011 15:14
Как сделать запрет ввода букв в поле для ввода input	zvezda_t	PHP	1	27.12.2009 22:02
Запрет ввода в Stringgrid	D-Snaker	Помощь студентам	1	18.06.2009 08:08
запрет ввода одинаковых чисел в edit	epic6	Общие вопросы Delphi	6	15.06.2009 08:31

10.05.2012, 02:56	#14
Matrix6993 Пользователь Регистрация: 26.12.2011 Сообщений: 69	Спасибо, все получилось!)

12.10.2013, 12:04	#18
eval Подтвердите свой е-майл Регистрация: 29.08.2012 Сообщений: 4,011	еще надо обрабатывать онченж, и т.д. иначе введу в едит все что не попадя. и потуги с кейпресом напрасны