Ответ: Пример использования lib_keys (отслеживание одновременного нажатия кнопок)
Спасибо за пример!
Вопрос: Можно ли сделать либу, которая возврвщает событие KeyUP в виде кода кнопки (мне кажется так проще проверять одновременное нажатие кнопок)
и сделать проверку кнопок примерно так
uses (к примеру)keyup;
var up,down,left,right:boolean;
pressed:integer;
begin
pressed:=keytoaction(Getkeypressed);
if pressed=ga_UP then up:=true;
if pressed=ga_DOWN then down:=true;
if pressed=ga_LEFT then left:=true;
if pressed=ga_RIGHT then right:=true;
pressed:=keyup.keyup;
if pressed=ga_UP then up:=false;
if pressed=ga_DOWN then down:=false;
if pressed=ga_LEFT then left:=false;
if pressed=ga_RIGHT then right:=false;
if up then begin
y:=y-1;
...
end;
if down then begin
y:=y+1;
...
end;
..
..
..
И.Т.Д
end;
|