Tiempo de espera.-

[BuenaOnda]

lo que dice duilioisola es lo que estoy haciendo, pero la consulta , al ejecutarse, no permite que se refresque el timer, eso es lo que busco solo poder refrescar el timer, para mostrar el tiempo transcurrido..muchas gracias por su ayuda compañeros..

[[duilioisola]]

Puedes poner el código que tienes dentro de OnTimer, para poder ver porqué no refresca el timer.
Quizás te podamos ayudar si vemos un error o una omisión o ... quién sabe qué.

[boreg]

Saludos, supongo que lo que hace falta es usar el metodo refresh del formulario (Formulario.refresh que redibuja el formulario completo con el OnTimer, es solo una suposicion la verdad es que me estoy iniciando en la programacion con delphi y no le se mucho al respecto.
Espero sea de ayuda SUERTE!!!!!

[BuenaOnda]

Hola...
Este es el Código del Timer..

Código Delphi [-]
procedure TfrmMontosFacturadosPorFamilia.Timer1Timer(Sender: TObject);
begin
     Application.ProcessMessages;
     Tiempo:=Tiempo + 0.00001;
     lblTiempo.Caption:=FormatDateTime('hh:nn:ss',Tiempo);
     lblTiempo.Refresh;
     Application.ProcessMessages;
end;

Gracias por sus respuestas compañeros..

[[duilioisola]]

En el procedimiento veo un error al darle formato a lblTiempo.Caption.
Los minutos están puesto con dos "N" y deben ser dos "M".

De todos modos, yo haría lo siguiente:

La variable Tiempo debe ser global. O sea, definida en la parte Private o Public del Form.

Código Delphi [-]
   public
      Tiempo : TDateTime;

Justo antes de ejecutar la consulta pones la variable Tiempo a la hora actual y activas el timer.

Código Delphi [-]
   [...]
   Tiempo := Now;
   Timer1.Enabled := True;
   Table.Open;   
   Timer1.Enabled := False;
   [...]

En el procedimiento OnTimer, cada vez que se ejecuta, debes deshabilitarlo, por las dudas tarde demasiado en ejecutarse y se ejecute otra vez antes de terminar la primera ejecución. Al finalizar lo que deba hacer lo habilitas nuevamente.

Lo que debes mostrar luego es la diferencia entre la hora actual y la hora a la que lo lanzaste (Now-Tiempo)

Recuerda lo que dije antes del formato "hh:mm:ss"

Código Delphi [-]
procedure TfrmMontosFacturadosPorFamilia.Timer1Timer(Sender: TObject);
begin
     Timer1.Enabled := False;
     lblTiempo.Caption:=FormatDateTime('hh:mm:ss',Now-Tiempo);
     lblTiempo.Refresh;
     Application.ProcessMessages;
     Timer1.Enabled := True;
end;

Dime si ahora, con este cambio te sale bien...

[BuenaOnda]

eso es lo que hago..(este formato 'hh:nn:ss' si funciona), lo que pasa es que al ejecutar la consulta SQL el evento OnTimer no se ejecuta, gracias por tu respuesta..

[[Lepe]]

Es un problema muy común. Mientras está buscando los datos en la base de datos, no podrás hacer nada.

Una solución es crear un Thread (un segundo hilo de ejecución) y ahí muestras el tiempo o lo que necesites. Obviamente tienes que crear y lanzar el thread y después abrir el sql.

Por otra parte 50 segundos me parece mucho. Marathon es un programa gratuito como Ib Expert, que permite ver el plan de ejecución de una consulta, estudiando eso, puedes saber si utiliza índices y claves primarias para la unión y selección de datos, o utiliza el plan "NATURAL".

duilioisola: Para el formato de hora, MM se utiliza para el mes en dos dígitos, como esas letras ya están pilladas, se usa nn para minutos. Cierto que usando hh:mm:ss no da error y muestra "aparentemente la hora", pero verás que los minutos se actualizan una vez al mes

Edito: Al parecer no he dicho nada nuevo, Neftali y tefots ya te lo dijeron (no leí el hilo al completo). El camino por el que vas no es el correcto.

Además, ¿para qué quieres mostrar un cronómetro?, ¿para que los usuarios vean lo ineficiente que es tu programa y así decir que tarda 53.88 segundos ?.

Saludos