Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
zuxa-zuxa
Мишка Косолапый :)
282 / 252 / 86
Регистрация: 15.02.2012
Сообщений: 1,470
Завершенные тесты: 1
1

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

05.08.2013, 16:10. Просмотров 1440. Ответов 1
Метки нет (Все метки)

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

Для блокировки нажатия клавиш я использовал это:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
1
2
3
4
5
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.
А тут нету разницы нажал или отпустил кнопку.
Посоветуйте как выйти из такого положения?
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.08.2013, 16:10
Ответы с готовыми решениями:

Гонки на Delphi. Управление стрелками
Доброго времени суток! Нужно сделать управление машинкой с помощью стрелок. Код...

Управление ФС
Можете дать совет, как разработать прогу на Delphi, поисковик файлов и папок....

Управление AIMP3
Доброго времени суток. Перерыл кучу форумом, но нигде не нашел управление...

Управление мышью
хочу написать простенькую прогу которая должна двигать курсор до края экрана...

Управление кареткой
Здравствуйте, обращаюсь к вам с просьбой: если у кого есть толковый материал по...

1
teleprog
176 / 148 / 43
Регистрация: 14.08.2008
Сообщений: 1,217
06.08.2013, 20:52 2
нагуглил
Delphi
1
2
3
4
5
функция GetKeyState позволяет определить нажата ли та или иная клавиша в данный момент времени и включена или выключена клавиша переключатель в данный момент времени: 
 
      function GetKeyState(
        nVirtKey: Integer //код виртуальной клавиши (ASCII таблица)
      ): SHORT;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.08.2013, 20:52

Статистическое управление
Всем привет кто желает хоть чем то помочь. Вот программу помогите составить...

Управление объектами
Дороу)) В общем не могу нигде найти: Как мне поменять свойства другого объекта...

Управление формами
Дорого времени суток форумчане подскажите как реализовать управление формами с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru