Cita:
Empezado por ecfisa
Hola connor.
Probá de este modo:
Código Delphi [-]
Gauge_STATUSBAR.Progress := 0;
Query1.First;
while not (Query1.Eof) do
begin
Calcular_Valores
Query1.Next;
Gauge_STATUSBAR.Progress := Gauge_STATUSBAR.Progress + 1;
Application.ProcessMessages;
end;
Saludos. |
ecfisa gracias, tenias razon eso me soluciono el problema, y tambien gracias a los demas por contestar.
saudos.