Как узнать время между нажатиями на клавишу и удержаия

Posted by maloy under Delphi, Архив

smalsvoloch

общем требуется узнать время удержания клавиши и время между нажатиями… Я на форму кинул кнопку, фокус кинул на эту кнопку…
пишу так

button1.keydown

d1:=now

button1.keyup

d2:=now;

t:=millisecondsbetween(d2,d1);

showmessage(inttostr(t));

как можно засечь время удержания клавиши, и время между нажатиями…. желательно клавишу использовать пробел….. кто что может подсказать….. можно в виде функции реализовать…

raxp

у вас есть ошибка по измерению после отжатия… но имхо, для адекватного (правильного) измерения лучше ставить защелку:

var
  t: integer;
  p: boolean;

procedure Tform1.WMKeyUp(var msg: TWMKeyUp);
begin
 inherited;
 if (msg.CharCode=32 {ваш пробел})and(p) then 
 begin 
  caption:= inttostr(GetTickCount-t); 
  p:= false 
 end
end;
procedure Tform1.WMKeyDown(var msg: TWMKeyDown);
begin
 inherited;
 if (msg.CharCode=32)and(not p) then begin p:= true; t:= GetTickCount end
end;

…не забудьте события назначить в секции private скажем

    procedure WMKeyUp(var msg:TWMKeyUp);message WM_KEYUP;
    procedure WMKeyDown(var msg:TWMKeyDown);message WM_KEYDOWN;

тема на форуме от 2009 года

Похожие статьи

• Asm нажатие клавиши
• Передача данных при нажатии на кнопку в течении минуты
• Анимация на форме используя таймер
• Пример работы с таймером в delphi
• Номера клавиш и её имя
• Вывод в memo кода нажатых клавиш
• Таймер в миллисекундах
• Определить, сколько по времени читали текст
• Движение изображение из точки А в точку В
• Смена изображений через определенное время