Измерение времени нажатия клавиши клавиатуры

[buka_14]

Здравствуйте. Есть задача: Написать программу, которая измеряет время нажатия клавиши с индикацией на экране. Как это решить в паскале или Делфи? Помогите разобраться, приму любые подсказки.

[Stilet]

Если нажатия нужно перехватывать из любой программы то ставь хук
Иначе просто обрабатывай OnKeyPress

[buka_14]

Как же работать с OnKeyPress? Как его применять? Подскажите, пожалуйста, или дайте ссылки на описание этой функции.

[OCTAGRAM]

OnKeyUp и OnKeyDown

[Stilet]

Может так тебе нужно:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview:=true;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
caption:='В '+TimeToStr(time)+' нажата клавиша '+Key;
end;

end.

[Veselyn]

В данной статье пойдёт речь о трёх событиях, которые позволяют отлавливать нажатия клавиш в приложении Delphi: OnKeyDown, OnKeyUp и OnKeyPress.

[buka_14]

большое-пребольшое-препребольшое спасибо-преспасибо