Xailer & OZ Software

Hola:
Muchas veces creo el siguiente código:
if MsgYesNo("Está de acuerdo...")
Cursorwait()
::MiMetodo()
CursorArrow()
endif
Claro está, lo que el usuario ve mientras que se ejecuta el método es el cursor con el relojito, a mi me gustarí­a que se viera un mensaje al estilo "Espere mientras se ejecuta el método".
Cómo lo podrí­a hacer.
Muchas gracias.

Saludos:
Mira esta secuencia:
IF ::oDBBPlanConc:KeyCount() > 0
** Posicionando los Browses
WaitOn( "Espere por favor...", "Posicionandose")
** Se posiciona en el último registro
::oDBBPlanConc:GoBottom()
** Hace un Scope sobre la
** base de datos de Carreras
::SeleccCarrera()
** Si el Browse de Carreras tiene registros
IF ::oDBBCarreras:KeyCount() > 0
** Se posiciona en último registro
::oDBBCarreras:GoBottom()
** Hace un Scope sobre la
** base de datos de Relojes
::SeleccConc()
** Si el Browse de Relojes tiene registros
IF ::oDBBReloj:KeyCount() > 0
** Se posiciona en el primer registro
::oDBBReloj:GoTop()
** Hace un Scope sobre la
** base de datos de Llegadas
::SeleccPalomas()
*
ENDIF
ENDIF
*
WaitOff()
ENDIF
Las funciones WaitOn() y WaitOff hacen lo que necesitas, los puedes
encontrar en el fichero de mensajes "Messages.prg" que publico Bingen
busca en el las dos funciones y implementalas o añade a tu programa el
prg y usaló.
José Ramón Castro.
El 04/05/2012 13:05, Emilio Gil escribió:
> Hola:
>
> Muchas veces creo el siguiente cíƒÂ³digo:
>
> if MsgYesNo("Est탡 de acuerdo...")
>
> Cursorwait()
>
> ::MiMetodo()
>
> CursorArrow()
>
> endif
>
> Claro est탡, lo que el usuario ve mientras que se ejecuta
> el míƒÂ©todo es el cursor con el relojito, a mi me gustaríƒÂ­a
> que se viera un mensaje al estilo "Espere mientras se
> ejecuta el míƒÂ©todo".
>
> CíƒÂ³mo lo podríƒÂ­a hacer.
>
> Muchas gracias.
>
--

Muchas gracias.