FoxPro/Visual FoxPro - Detener while desde otro lado y retardar ejecución de programa

Hola a todos.

Tengo que mostrar un campo de una tabla que tiene cientos de registros en forma continua, durante 2 segundos o mas y debo detener en cualquier momento y volver a mostra,r volver a deterner, asi sucesivamente.

utilice lo siguiente:
Conti='s'
DO WHILE Conti='s'
Thisform.Label1.caption=Tabla.nombre
WAIT WIND TIME OUT 2
SKIP
ENDDO

Esto esta en un boton, en otro boton están Conti='n', supuestamente para detener el bucle while, pero el bucle no se detiene, continua.
Como hago para deter la ejecución del programa por unos intantes, o sea que corra lento en cada bucle y luego ese bucle desde otra parte del formulario?.

Gracias por la ayuda, estare al tanto.

¿Has probado a usar el objeto TIMER? Sería la opción más sensata, si quieres un bucle, junto con el botón de stop.

Vamos, que no es difícil.

DO WHILE .T.
........
Acciones
........

w=INKEY() && Lee buffer del teclado
IF w=ASC('N').OR.w=ASC('n')
EXIT && Si se pulsa 'N' o 'n', sale del bucle y continúa con lo que siga luego del ENDDO
ENDI

........
Acciones
........

ENDDO

Hola a todos.

El timer controla a toda la ejecución del programa, pero yo no deseo eso, quiero hacer lento secciones del programa, Cuando haga clic en boton "mostrar" debe mostrar un nombre de la tabla registros por 2 o 3 segundos, luego debe mostrar el siguiente registro, luego el siguiente, sin que el usuario deba oprimir cualquier tecla ni hacer clic, y cuando desea detener en un registro, debe hacer clic en el boton detener, podrá ejecutar el boton Mostrar cuiando desee u otros botenss del formulario. Ahora no se se el código de los botones: Mostrar ni detener.
Espero sus respuestas

Todo ese comportamiento que has descrito y que esperas de tu formulario se puede obtener con el objeto TIMER. Es lo correcto, programación orientada a objetos. Basarse en un bucle DO WHILE, personalmente y sin querer molestar a nadie, me parece un método obsoleto de programación.

Si no lo quieres intentar, de poco sirve cualquier consejo que se de.

SELECT TuTabla
SCAN && o DO WHILE o FOR ...
********
*** Acciones para mostrar registros
********
INKEY(3) && Espera 3 segundos y continua

ENDSCAN

Esto era justo lo que estaba buscando, lo probé y funciona de maravilla.

Gracias Carlos Cuyé, me da gusto q respondas con algo concreto y no con comentarios, una vez mas GRACIAS.

Hola, la respuesta exacta ya te la dio Carlos Cuye, tienes que trabajar con el inkey() dentro del do while, es cuestion que lo pongas en marcha.

Suerte.

Cha'gracias Santiago! A pocas palabras, buenos entendores...