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

Вниз

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

← →
Radgar ©   (2007-02-27 11:24) [0]

Здравствуйте.

Подскажите, пожалуйста, как с помощью OnKeyDown отловить нажатие одновременно двух клавиш и узнать какие именно клавишы были нажаты. Если нельзя OnKeyDown"ом, то есть ли другое решение проблемы?

---

← →
Elen ©   (2007-02-27 11:34) [1]

> одновременно двух клавиш

насколько одновременно?

---

← →
Radgar ©   (2007-02-27 11:35) [2]

> насколько одновременно?


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

---

← →
RebroFF   (2007-02-27 13:43) [3]

> нажатие одновременно двух клавиш


Точнее нажать и удерживать.

---

← →
Radgar ©   (2007-02-27 14:13) [4]

> Точнее нажать и удерживать.


Ну да. А есть ли способ отлавливать такие нажатия?

---

← →
TRUNK ©   (2007-02-27 14:49) [5]

> Подскажите, пожалуйста, как с помощью OnKeyDown отловить нажатие
> одновременно двух клавиш и узнать какие именно клавишы были нажаты

Например, вот так:

var
KeyPressed: array[VK_LBUTTON..VK_OEM_CLEAR] of Boolean;

procedure TForm1.Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
KeyPressed[Key] := true;
if KeyPressed[VK_LEFT] and KeyPressed[VK_UP] then
 begin
 {.....}
 end;
end;

procedure TForm1.Form1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
KeyPressed[Key] := false;
end;


---

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

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

Наверх

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