Ejecutar 2 timers a la vez

[Hayton]

Hola, chicos he buscado y no he encontrado nada de esto, por eso os lo pregunto a ver si alguno lo sabe hacer.

Lo que quiero es que 2 timers se ejecuten simultaneamente, conforme lo tengo ahora se ejecuta uno y despues el otro.

procedure TForm1.Label2Click(Sender: TObject);
begin

  timer1.Enabled:=true;
  timer2.Enabled:=true;

end;

Gracias y saludos.

[[duilioisola]]

Todo en informática es secuencial. La diferencia entre el primer timer y el segundo serán milésimas de segundo...

Lo que haces es habilitar los timers. Eso es como poner una alarma y que esa alarma llame a una función cuando llegue el momento.

Si los dos están puestos a 5 segundos, el primero ejecutará su sección OnTimer unas milésimas de segundo antes que el otro, siempre y cuando el primero no colapse la cpu.

¿Cuál es el problema?

[Hayton]

Los timers los tengo a 200 milisegundos, y mis acciones son:

Un timer aumenta la propiedad height de 2 en 2 de un componente hasta un tope, y el otro disminuye la misma propiedad de otro componente hasta otro tope. Cuando llegan al tope se desactivan.

De manera que da la sensacion que el que se hace mas grande se despliega y el que se hace mas pequeño se repliega. El problema es que quiero que se haga todo a la vez, uno que se agrande y el otro que encoja. Y lo que ahora sucede es que primero encoge uno y luego agranda el otro.

[Casimiro Notevi]

Parece problema del programa, pon el código fuente que lo veamos

[[duilioisola]]

Yo pondría un solo timer:

Código Delphi [-]
procedure TForm1.Label2Click(Sender: TObject);
begin
  timer1.Enabled:=true;
end;

procedure TForm1.OnTimer1
begin
   // Deshabilito el timer por si tarda demasiado en ejecutarse
   Timer1.Disable;

   // Hago cada cosa dos veces para evitar errores por si queda Top negativo
   if (Componente1.Top > 0) then
      componente1.Top = Componente1.Top - 1;
   if (Componente1.Top > 0) then
      componente1.Top = Componente1.Top - 1;

   // Hago cada cosa dos veces por si el tope es impar
   if (Componente2.Top < Tope) then
      componente2.Top = Componente2.Top + 1;
   if (Componente2.Top < Tope) then
      componente2.Top = Componente2.Top + 1;

   // Hago que la aplicacion refresque la pantalla
   Application.ProcessMessages;

   // Vuelvo a habilitar el timer si corresponde
   if ((Componente1.Top > 0) or (Componente2.Top < Tope)) then
      Timer1.Enable;
end;

[Hayton]

Ok, gracias. Me ha servido.

Saludos.