Форум: "Начинающим";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];

Вниз

KEY   Найти похожие ветки 

← →
Id   (2006-06-29 16:08) [0]

Здраствуйте, уважаемые мастера.
Как поймать  событие - нажатие кнопки UP или DOWN

---

← →
Phoroon~   (2006-06-29 16:17) [1]

А событие где ловить то?
Варианты:
1 Формой
2 Проектом
3 Компонентом
4 Еще чем нибудь (уточнить)

---

← →
Id   (2006-07-10 15:09) [2]

> 3 Компонентом

---

← →
КиТаЯц ©   (2006-07-10 15:12) [3]

procedure OnКомпонентKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if Key in [VK_Up, VK_DOWN] then showmessage ("Ïîéìàëè îäíàêî");
end;

---

← →
alexvan ©   (2006-07-10 15:16) [4]

1.Свойство формы KeyPreview:=true;

2.Для компонента событие OnKeyDown
if Key=VK_UP then ...
if Key=VK_DOWN then ...

---

← →
Id   (2006-07-10 15:24) [5]

> КиТаЯц ©   (10.07.06 15:12) [3]

Ругается
[Error] Unit1.pas(27): Incompatible types: "Char" and "Integer"

> alexvan ©   (10.07.06 15:16) [4]

Ругается
[Error] Unit1.pas(27): Incompatible types

---

← →
tesseract ©   (2006-07-10 15:28) [6]

> [Error] Unit1.pas(27): Incompatible types: "Char" and "Integer"

не OnKeyPress, а OnKeyDown.

---

← →
Id   (2006-07-10 15:41) [7]

Спасибо, работает!

---

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

Форум: "Начинающим";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c