Перенести управление стрелками на управление WASD

@zuxa-zuxa · Регистрация: 15.02.2012

Author24 — интернет-сервис помощи студентам

Мне нужно чтобы в игре вместо стрелок управление осуществлялось WASD и при этом сами WASD не нажимались в игре.

Для блокировки нажатия клавиш я использовал это:

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(handle, 65, 0, 65);
RegisterHotKey(handle, 87, 0, 87);
RegisterHotKey(handle, 68, 0, 68);
RegisterHotKey(handle, 83, 0, 83);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(handle, 65);
UnregisterHotKey(handle, 87);
UnregisterHotKey(handle, 68);
UnregisterHotKey(handle, 83);
end;

Чтобы отловить нажатие клавиши W я делал так:

Delphi

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if msg.hotkey=87 then
 
end;

Добавив это:

Delphi

1 2	private procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

Но нужно также чтобы удерживалось нажатие стрелки столько сколько будет задерживаться W.
А тут нету разницы нажал или отпустил кнопку.
Посоветуйте как выйти из такого положения?

@teleprog · 06.08.2013, 20:52

нагуглил

Delphi

функция GetKeyState позволяет определить нажата ли та или иная клавиша в данный момент времени и включена или выключена клавиша переключатель в данный момент времени: 
 
      function GetKeyState(
        nVirtKey: Integer //код виртуальной клавиши (ASCII таблица)
      ): SHORT;

	06.08.2013, 20:52