Подскажите, как сделать так, чтобы можно было нажать клавишу Bescape. - Общие вопросы Delphi

Militia · 14.05.2016, 17:37

Вот мой код :
procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['1'..'9','0']) then Key:=#0;
end;
end.
А как добавить туда клавишу Bascape? Ну чтобы текст стирать можно было.

Serge_Bliznykov · 14.05.2016, 17:40

Цитата:

А как добавить туда клавишу Bescape?

Это что за клавиша такая?

Знаю BackSpace (в простонародье "забой", код #8), знаю Escape (она же "Esc", код #27)
А Bescape не знаю!

Militia · 14.05.2016, 17:53

Извините, не так написал. Bascape клавиша.

Dvoishnik · 14.05.2016, 18:29

Bascape ЭТО ЧТО ЗА КЛАВИША ТАКАЯ??
Коды клавиш
если это BackSpace

Код:

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

end.

Militia · 15.05.2016, 15:26

Большое спасибо, все работает. Просто писал
if not (Key in ['1'..'9','0','#8']) then Key:=#0;
А там надо было #8 без кавычек. Спасибо, что помогли!

Аватар · 15.05.2016, 15:28

А как насчет del и клавишами управления курсором?

northener · 16.05.2016, 10:16

Цитата:

Сообщение от Аватар

А как насчет del и клавишами управления курсором?

Они не вызывают OnKeyPress

14.05.2016, 17:37	#1
Militia Регистрация: 14.05.2016 Сообщений: 4	Подскажите, как сделать так, чтобы можно было нажать клавишу Bescape. Вот мой код : procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['1'..'9','0']) then Key:=#0; end; end. А как добавить туда клавишу Bascape? Ну чтобы текст стирать можно было. Последний раз редактировалось Militia; 14.05.2016 в 17:43.

14.05.2016, 18:29	#4
Dvoishnik Форумчанин Регистрация: 12.02.2011 Сообщений: 808	Bascape ЭТО ЧТО ЗА КЛАВИША ТАКАЯ?? Коды клавиш если это BackSpace Код: `procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['1'..'9','0',#8]) then Key:=#0; end;` end. Терпение!Дежурный экстрасенс скоро свяжется с вами! Последний раз редактировалось Dvoishnik; 14.05.2016 в 18:32.

15.05.2016, 15:28	#6
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	А как насчет del и клавишами управления курсором? Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Подскажите пожалуйста, как сделать, чтобы в Edit можно было ввести цифры от 0 до 12.	ciev	Общие вопросы Delphi	6	14.05.2016 17:45
Как сделать, чтобы при поисковой выдаче было так:...?	hvs1987	HTML и CSS	3	10.02.2012 17:01
Как сделать так чтобы изображение было поверх таблицы	otenova	HTML и CSS	2	29.09.2010 18:00
Как сделать так, чтобы форму можно было тостать не только за заголовок?	Никки	Общие вопросы Delphi	1	04.09.2008 14:34
Подскажите, как сделать так, чтобы тест можно было повторно пройти не перезагружая пр	Kamikadze_666	Помощь студентам	2	23.05.2007 02:48

14.05.2016, 17:53	#3
Militia Регистрация: 14.05.2016 Сообщений: 4	Извините, не так написал. Bascape клавиша.

15.05.2016, 15:26	#5
Militia Регистрация: 14.05.2016 Сообщений: 4	Большое спасибо, все работает. Просто писал if not (Key in ['1'..'9','0','#8']) then Key:=#0; А там надо было #8 без кавычек. Спасибо, что помогли!