Timer - TrackBar

[[Caral]]

Esto hago:
En el evento OnChange del TrackBar

Código Delphi [-]
Timer1.Interval:= 1000;

Lo que no entiendo es que hacen esas rayas, me explico:
Cada raya es un interval de en este caso 1000 o es un unico interval y no cambia.
Si no cambia como hago para que cada raya del trackbar sea un interval
esto funciona ?

Código Delphi [-]
Timer1.Interval:= 1000;
Timer1.Interval:= 2000;
Timer1.Interval:= 3000; // Ect.

Saludos

[[seoane]]

Prueba con algo asi, en el evento OnChange:

Código Delphi [-]
   Timer1.Interval:= Trackbar1.Position * 1000;

[[egostar]]

El TrackBar cambia dependiendo de la propiedad PageSize, por default tiene 2, cambialo a 1 y toma el valor de TrackBar1.Position * 1000 que es la unidad en segundos del timer.

Algo así

Código Delphi [-]
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Timer1.Interval := TrackBar1.Position * 1000;
end;

No se si debes de reiniciar el Timer cada vez que cambias el valor, me imagino que si.

Saludos

[[seoane]]

Empezado por egostar

No se si debes de reiniciar el Timer cada vez que cambias el valor, me imagino que si.

En realidad no hace falta, al cambiar la propiedad Intervalo el timer se reinicia solo.

[[Caral]]

Muchisimas Gracias a Todos
Funciona perfectamente:
Con respecto a reiniciar el timer no es necesario, el interval cambia segun se mueve el trackbar.
Lo unico que he cambiado es el intervalo que 1000 es muy pequeño para lo que necesito, con 15000 es perfecto.
Quedo plenamente agradecido.
Muchas Gracias Roman, seoane, egostar, por vuestra ayuda
Saludos