Показать сообщение отдельно
Старый 06.07.2013, 01:06   #5
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений
(для 790 пользователей)
Ответ: Двойное нажатие клавиш

При проверке повторного нажатия 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
(Offline)
 
Ответить с цитированием