Página 1 de 1

Como crear mi propio ProcessMessages

Publicado: Jue Oct 27, 2022 2:35 am
por jjgp2
Bunas noches

Tendrán un ejemplo de como crear mi propio ProcessMessages y utilizarlo en mi aplicación a la hora de realizar procesos.

por su ayuda mil gracias

Re: Como crear mi propio ProcessMessages

Publicado: Mié Nov 02, 2022 1:56 pm
por ignacio
Buenos días,

Lo siento, pero no entiendo su pregunta. Diga exactamente que es lo que desea hacer.

Gracias

Re: Como crear mi propio ProcessMessages

Publicado: Mié Nov 02, 2022 2:06 pm
por ignacio
Buenos días,

Lo siento, pero no entiendo su pregunta. Diga exactamente que es lo que desea hacer.

Gracias

Re: Como crear mi propio ProcessMessages

Publicado: Dom Dic 18, 2022 6:56 am
por jjgp2
Buenas noches
perdón por no explicarme adecuadamente, Necesito que al realizar un proceso se muestre un formulario bsSPLASH como se ve en la imagen que anexo.

Pero que lo pueda llamar como a través de una función e ir aumentando el valor de progreso de la barra y al termino cerra la venta.
Como se realizaba con la función WaitOnMeter de Messages.prg

Gracias de antemano

Re: Como crear mi propio ProcessMessages

Publicado: Lun Dic 19, 2022 9:52 am
por ignacio
Buenos días,

Realice una función que devuelva un objeto TForm, y que éste tenga una propiedad de nombre oPgBar que apunte a su TprogressBar. Algo así:

Código: Seleccionar todo

  oForm := MiSplahsDialog()

  DO WHILE ....
   ProcessMessages() 
   .....
   oForm:oPgBar:Value ++
  ENDDO 

  oForm:Close()
Saludos