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.