2 respuestas en este tema

[FGarcia]

Hola!

Rato que no pregunto nada pero siempre paso para ver que hay ne nuevo.

Pues mi pregunta es esa exactamente como dice el titulo del hilo. Necesito ejecutar siempre un procedure, no disparado por evento, ni por un timer, es una aplicacion windows donde solo se ingresan unos datos numericos y se muestran resultados de calculos, el procedure siempre debe de estar ejecutando, por decir algo:

delphi

procedure TForm1.Calculando;
begin
  if (scrollbar1.position > StrToInt(edtArranque.Text )) then
     begin
          Shape1.Brush.Color := clRed;
 
     end;
 
  //AQUI mucho mas codigo.......
end; 

Se agradecen las ideas y sugerencias como siempre 

Para los que son maestros !

[escafandra]

Te propongo estas técnicas:

1.- Un código que siempre se ejecuta se consigue con un bucle infinito. Claro que esto bloquea tu aplicación y puede que no sea lo que buscas.

2.- La otra forma es un thread, es decir un hilo de código que corre paralelo al hilo principal y no bloquea el prigrama. Para este caso puedes leer este minitutorial .

Básicamente:

delphi

procedure ThreadProc
begin
  repeat  
     .............
  until condición;
end  
 
 
...................... 
// Poner en marcha el thread
var 
 hThread: THANDLE;
 
begin
   Thread:= CreateThread(nil 0,  @ThreadProc, 0, 0, PDWORD(0)^);
end;

3.- Otra forma de hacerlo es con la clase TThread de delphi.


Saludos.

[sistesc]

Tambien podrias crear un servicio de Windows que se inicie en automatico con windows y que el servicio sea un ciclo o un timer.