Crear un temporizador para botón

[Casimiro Noteví]

¿Qué parte llevas hecha?
¿En qué parte tienes problemas?
¿Cuántos puntos te dan por el ejercicio?

[UsuarioBaja123]

Nada, ya encontré yo solo la manera de hacerlo. ¿Si quiero compartirlo lo escribo aquí o lo pongo en trucos?

[Casimiro Noteví]

Aquí, por favor

[UsuarioBaja123]

Pues sencillamente añades un TTimer y una variable:

Código Delphi [-]
var
valueduration : integer;
begin
valueduration := valueduration +1
end;

De esta manera cada vez que en el Timer pasen los 1000 (1 seg.) se sumara a la variable 1.

Mi problema es que no se hacer una función cuando el botón está o no pulsado:

Código Delphi [-]
var
valueduration : integer;
begin
if Button1.OnClick true
then begin
valueduration := valueduration +1
end;
if Button1.OnClick false
then begin
Text1.Text := valueduration;
end;

¿Qué estoy haciendo mal?

Gracias.

[Casimiro Noteví]

Decías que querías controlar cuánto tiempo está pulsado el botón, ¿eso quiere decir que cuente el tiempo que lo pulsas hasta que lo sueltas? ¿o quieres decir el tiempo entre que lo pulsas una vez y lo vuelves a pulsar otra vez?

[UsuarioBaja123]

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.

[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