Ответ: Двойное нажатие клавиш
При проверке повторного нажатия getKeyClicked вызывается только один раз. И оно, скорее всего, будет Ke_none
Я бы написал такую функцию:
var lastTime, lastKey:integer; doubleClick:boolean;
procedure update(int key)
var time:integer
begin
if key<>ke_none then
begin
time:=getRelativeTimeMS;
doubleClick := (time-lastTime<500) and (key=lastkey);
lastTime:=time;
lastKey:=key;
end;
end;
И вызывал бы её при проверках нажатий с клавиатуры.
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|