Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Timer - TrackBar (https://www.clubdelphi.com/foros/showthread.php?t=36122)

Caral 03-10-2006 00:09:49

Timer - TrackBar
 
Hola a Todos
Otra pregunta:
Tengo un TrackBar y un Timer, como hago para que en el evento onchange del TrackBar, el Timer cambie progresivamente el Interval.
Tal vez es posible hacerlo con otro componente ?
Como que hoy es el dia de preguntar para mi.:D
Saludos

roman 03-10-2006 00:22:47

¿Qué entiendes tú por cambiar progresivamente?

// Saludos

Caral 03-10-2006 00:32:53

Gracias Roman
El trackBar tiene unas rayas para regular, entiendo que es asi.
Lo que necesito es que al mover el trackbar por sus rayas el timer cambie el interval para que me de un mensage o cierre algo en otra operacion.
Ha esto llamo progresivamente, osea que el interval del timer cambie segun se mueva el trackbar.
Espero me entiendas
Saludos

roman 03-10-2006 00:38:01

Pero entonces no entiendo cuál es la duda. Sabes dónde hacer el cambio (evento OnChange del TrackBar) y sabes qué cambiar (propiedad Timer.Interval), ¿qué es lo que falta?

// Saludos

Caral 03-10-2006 00:42:13

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 03-10-2006 00:45:08

Prueba con algo asi, en el evento OnChange:
Código Delphi [-]
   Timer1.Interval:= Trackbar1.Position * 1000;

egostar 03-10-2006 00:46:45

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 03-10-2006 00:50:59

Cita:

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 03-10-2006 00:58:31

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


La franja horaria es GMT +2. Ahora son las 10:09:55.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi