Código Delphi [-]
Label21.Caption := IntToStr(con4);
Application.ProcessMessages;
Form1.Table2.Next;
Sustituye el Application.ProcessMessages por label21.Update. No estoy seguro de que funcione, porque los mensajes de dibujado tienen poca prioridad, pero el processmessages consume mucho tiempo en un bucle.
Edito:
Además incluye un table1.DisableControls antes del bucle y un Table1.EnableControls al final del bucle, eso disminuye el tiempo del bucle 10 veces. Lo mismo para table2.
Saludos.
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Última edición por Lepe fecha: 09-03-2007 a las 20:14:21.
|