Crear un temporizador para botón

[ecfisa]

Empezado por ZaneMS

Que calcule el tiempo entre que lo pulse y lo suelte. Y si no se puede hacer con el botón que sea con presionar cualquier tecla y la suelte.

Hola ZaneMS.

Con el mouse:

Código Delphi [-]
...
implementation

var
 Frequency, Start, Stop: Int64;

procedure TForm1.FormCreate(Sender: TObject);
begin
  QueryPerformanceFrequency(Frequency);
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  QueryPerformanceCounter(Start);
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  QueryPerformanceCounter(Stop);
  ShowMessage(FormatFloat('0,',(Stop-Start)* 1000000 div Frequency) + ' µs.');
end;
...

Para el teclado usa los eventos OnKeyDown y OnKeyUp.

Saludos