Como implemento una barra de progreso en forms, mientras se ejecuta un loop?

lemf
15 de Julio del 2004
Hola [email protected], tengo el siguiente problema, en forms cuando mando a ejecutar un bucle con muchas iteraciones, la pantalla se torna de color blanca y en ocaciones el usuario puede pensar que esta colgada o no funciona, pero no es así, me gustaria implementar algun tipo de alerta, mensage, señales de humo o mejor aún una barra de progreso, mientras se ejecuta el loop para el usuario. En Visual Basic, yo lo he hecho usando el comando do event, para devolver el control al sistema operativo, incluso me permite manipular otras pantallas mientras se ejecuta el proceso

Gracias

Carlos Lenis
15 de Julio del 2004
Hola. puedes utilizar esta funcion.
te colocara el mouse en reloj de arena.
set_application_property(CURSOR_STYLE,'BUSY');

lemf
15 de Julio del 2004
Que tal, gracias por tu recomendación, pero te cuento que coloco las lineas de codigo que tu me enviaste, si funciona para dibujar una aparente barra de progreso, cuando lo hago si el loop, pero cuando pongo el loop, no se ve reflejado ningun cambio en la barra mientras no termine el loop, lo implemente algo asi (todo esta dentro de un boton):
----
declare
TIM TIMER;
BEGIN
go_block('PROGRESO');
IF Id_Null(tim) THEN
tim := create_timer('PROGRESO', 12.5, REPEAT);
END IF;
END;
declare
cursor c_exis is
select ---------
begin
for i in c_exis loop
----proceso
end loop;
end;

Que me puedes recomendar hacer?????

Gracias