Текущий архив: 2007.03.18;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.049 c
