Cita:
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