Скачать: CL | DM;

Ламерский вопрос - но в хелпе ничего нет нашел.   Найти похожие ветки 

← →
koks ©   (2002-03-27 09:59) [0]

Навероное вопрос покажется совсем тупой... но я дейcтвительно торможу...
Каим образом в обработчике события OnKeyPress отловить нажатия Enter, Tab, Escape. Я знаю что у них коды 0..31но вот какие конкретно...

---

← →
Adder ©   (2002-03-27 10:03) [1]

Enter = #13
Tab = #9
Esc = #27

---

← →
Alx2 ©   (2002-03-27 10:04) [2]

VK_RETURN - Enter
VK_TAB - Tab
VK_ESCAPE - Esc

---

← →
IronHawk ©   (2002-03-27 10:12) [3]

Создай новый проект с формой потом сунь туда Label
и в событие
OnKeyDown сунь такой код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption:=IntToStr(key);
end;


---

← →
Fredericco ©   (2002-03-27 11:03) [4]

IronHawk >> IntToStr(ORD(Key))

---

← →
Alx2 ©   (2002-03-27 11:10) [5]

>Fredericco © (27.03.02 11:03)
Абсолютно никакой разницы (судя по asm коду)

---

← →
kull ©   (2002-03-27 11:12) [6]

> Fredericco

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

---

← →
kull ©   (2002-03-27 11:13) [7]

Даже и в asm залезать не надо, и так по смыслу ясно.

---

← →
Alx2 ©   (2002-03-27 11:15) [8]

>kull © (27.03.02 11:13)
Это я чтобы размусоливать не пришлось :)

---

← →
kull ©   (2002-03-27 11:18) [9]

А-а-а-а-а............. :)

---

← →
IronHawk ©   (2002-03-27 11:19) [10]

> Fredericco ©

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

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

ОК ?

---

← →
Fay ©   (2002-03-27 11:26) [11]

Присоединяюсь к IronHawk

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

---

← →
koks ©   (2002-03-27 13:13) [12]

Друзья, спасиба !
Только тут не подойдут виртуальные коды типа vk_XXXX - они используются в событиях типа OnKeyDown. А мне нужна именно OnKeyPress, а там анализируется Char. (вариант

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

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

---

← →
drpass ©   (2002-03-27 13:49) [13]

Adder же все подсказал: if Key=#13 then //нажата Enter и т.д.

---

← →
drpass ©   (2002-03-27 13:51) [14]

Извиняюсь, не "подсказал", а "подсказала" :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.011 c