Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ламерский вопрос - но в хелпе ничего нет нашел. [D5, Win95/98]

koks © (2002-03-27 09:59:00)
Навероное вопрос покажется совсем тупой... но я дейcтвительно торможу...
Каим образом в обработчике события OnKeyPress отловить нажатия Enter, Tab, Escape. Я знаю что у них коды 0..31но вот какие конкретно...

drpass (2002-03-27 13:51:00) [1]
Извиняюсь, не "подсказал", а "подсказала" :)

drpass (2002-03-27 13:49:00) [2]
Adder же все подсказал: if Key=#13 then //нажата Enter и т.д.

koks (2002-03-27 13:13:00) [3]
Друзья, спасиба !
Только тут не подойдут виртуальные коды типа vk_XXXX - они используются в событиях типа OnKeyDown. А мне нужна именно OnKeyPress, а там анализируется Char. (вариант

О том, что Char(X) = "Символ"
и VK_"Символ" = X наверное надо лезть в исходники...

2 Fay и IronHawk - Ord(Key) и Ord(VK_RETURN) - одно и тоже (для нажатия "Вод", естейственно) - но только для события OnKeyDown.

Fay (2002-03-27 11:26:00) [4]
Присоединяюсь к IronHawk

ORD(VK_RETURN) - это , к примеру,зачем ?

IronHawk (2002-03-27 11:19:00) [5]

> Fredericco ©

Пусть сделает сначало по моему, и запустит !
А потом по твоему, и запустит !

А потом посмотрим на результат и разницу !

ОК ?

kull (2002-03-27 11:18:00) [6]
А-а-а-а-а............. :)

Alx2 (2002-03-27 11:15:00) [7]
>kull © (27.03.02 11:13)
Это я чтобы размусоливать не пришлось :)

kull (2002-03-27 11:13:00) [8]
Даже и в asm залезать не надо, и так по смыслу ясно.

kull (2002-03-27 11:12:00) [9]

> Fredericco

А зачем IntToStr( ORD(Key))?

Alx2 (2002-03-27 11:10:00) [10]
>Fredericco © (27.03.02 11:03)
Абсолютно никакой разницы (судя по asm коду)

Fredericco (2002-03-27 11:03:00) [11]
IronHawk >> IntToStr(ORD(Key))

IronHawk (2002-03-27 10:12:00) [12]
Создай новый проект с формой потом сунь туда Label
и в событие
OnKeyDown сунь такой код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Label1.Caption:=IntToStr(key); end;

Alx2 (2002-03-27 10:04:00) [13]
VK_RETURN - Enter
VK_TAB - Tab
VK_ESCAPE - Esc

Adder (2002-03-27 10:03:00) [14]
Enter = #13
Tab = #9
Esc = #27

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »