Formulario con ProgressBar cierra al principal

[elrayo76]

Buenas a todos,

Tengo una aplicación con un TreeView el cual se carga desde un archivo. Mientras se carga el archivo se abre un formulario que tiene una barra de progreso que se va incrementando. El formulario de la barra de progreso lo abro en no modal para que se pueda ir ejecutando el código del formulario principal.

El tema es que esa misma barra de progreso la uso para cuando se hace click sobre alguno de los nodos del TreeView y se carga un ListView que está también en el formulario principal.

Ahora es donde viene el problema. Lo que sucede es que se ve como la barra de progreso se muestra y se actualiza, el Listview se carga perfecto pero al terminar la carga el formulario principal es como que se pone por detrás de todo lo que se tenga abierto (puede ser el entorno de Delphi)

Les pongo algo de código de como llamo al formulario con la barra de progreso al hacer click en un nodo y se carga el ListView.

Código Delphi [-]
frmProgressBar := TfrmProgressBar.Create(nil);

try
   frmProgressBar.Init('Leyendo archivo', 0, 1);  // Incializa el título, el mínimo y máximo de la barra de progreso.
   frmProgressBar.Message := 'Carga del ListView';  // Mensaje adicional en el form de barra de progreso.
   frmProgressBar.Show;

   // Método que va actializando el progreso de la barra.
   frmProgressBar.UpdateProgress(intEndRecord - intStartRecord);

   // Acá se lee el archivo y se va cargando el ListView.
   // Esto es un ciclo y dentro lo primero que hace es actualizar la barra por cada 1000 lineas leídas
   if (intRecord mod 1000) = 0 then
   begin
      frmProgressBar.Message := Format('Cargando el ListView... %s', [intRecord]);
      // Lo que se hace en este método es actualizar la posición de la barra,
      // Actualizar el mensaje, hacer un Update del formulario y un "Application.ProcessMessages

      frmProgressBar.UpdateProgress(intRecord - intStartRecord);
   end;

   // Acá toda la lógica para cargar el ListView con los datos leídos del archivo   

finally
   frmProgressBar.Release;
end;

Esto es todo. Espero que se entienda y sino es así me lo hacen saber.

Saludos,
El Rayo

[[kuan-yiu]]

Yo uso diversos formularios compartidos con barras de progreso y siempre los libero con free. O bien directamente, o bien a través de un procedimiento finalizar del propio formulario en el que se realizan otras tareas necesarias antes del free.

[elrayo76]

kuan-yiu yo en los proyectos que trabajado en distintas empresas siempre los liberaban con Release. Siempre me dijeron que es mejor que Free en alguna forma.

Dejo la web de Embarcadro donde esta esto.

https://docwiki.embarcadero.com/Libr...omForm.Release

¿Igualmente eso tiene que ver en algo con lo que consulto?

[Delphi01]

Empezado por elrayo76

Buenas a todos,

Tengo una aplicación con un TreeView el cual se carga desde un archivo. Mientras se carga el archivo se abre un formulario que tiene una barra de progreso que se va incrementando. El formulario de la barra de progreso lo abro en no modal para que se pueda ir ejecutando el código del formulario principal.

El tema es que esa misma barra de progreso la uso para cuando se hace click sobre alguno de los nodos del TreeView y se carga un ListView que está también en el formulario principal.

Ahora es donde viene el problema. Lo que sucede es que se ve como la barra de progreso se muestra y se actualiza, el Listview se carga perfecto pero al terminar la carga el formulario principal es como que se pone por detrás de todo lo que se tenga abierto (puede ser el entorno de Delphi)

Les pongo algo de código de como llamo al formulario con la barra de progreso al hacer click en un nodo y se carga el ListView.

Código Delphi [-]
frmProgressBar := TfrmProgressBar.Create(nil);

try
   frmProgressBar.Init('Leyendo archivo', 0, 1);  // Incializa el título, el mínimo y máximo de la barra de progreso.
   frmProgressBar.Message := 'Carga del ListView';  // Mensaje adicional en el form de barra de progreso.
   frmProgressBar.Show;

   // Método que va actializando el progreso de la barra.
   frmProgressBar.UpdateProgress(intEndRecord - intStartRecord);

   // Acá se lee el archivo y se va cargando el ListView.
   // Esto es un ciclo y dentro lo primero que hace es actualizar la barra por cada 1000 lineas leídas
   if (intRecord mod 1000) = 0 then
   begin
      frmProgressBar.Message := Format('Cargando el ListView... %s', [intRecord]);
      // Lo que se hace en este método es actualizar la posición de la barra,
      // Actualizar el mensaje, hacer un Update del formulario y un "Application.ProcessMessages

      frmProgressBar.UpdateProgress(intRecord - intStartRecord);
   end;

   // Acá toda la lógica para cargar el ListView con los datos leídos del archivo   

finally
   frmProgressBar.Release;
end;

Esto es todo. Espero que se entienda y sino es así me lo hacen saber.

Saludos,
El Rayo

El problema que se presenta es que después de cargar el ListView, el formulario principal se coloca detrás de todo lo que se tenga abierto, incluyendo el entorno de Delphi. Esto puede deberse a que el formulario de la barra de progreso se abrió en modo no modal y no se cerró correctamente después de que se cargó el ListView.
Para solucionar este problema, se puede cerrar el formulario de la barra de progreso después de cargar el ListView. Para hacer esto, se puede llamar al método Close() del formulario de la barra de progreso después de cargar el ListView. Además, se puede cambiar el modo en que se abre el formulario de la barra de progreso a modal para evitar que el usuario interactúe con el formulario principal mientras se carga el ListView.
Aquí hay un ejemplo de cómo se puede modificar el código para cerrar el formulario de la barra de progreso después de cargar el ListView y abrir el formulario de la barra de progreso en modo modal:

Código Delphi [-]
frmProgressBar := TfrmProgressBar.Create(nil);

try
   frmProgressBar.Init('Leyendo archivo', 0, 1);  // Inicializa el título, el mínimo y máximo de la barra de progreso.
   frmProgressBar.Message := 'Carga del ListView';  // Mensaje adicional en el form de barra de progreso.
   frmProgressBar.ShowModal;  // Abre el formulario de la barra de progreso en modo modal.

   // Método que va actualizando el progreso de la barra.
   frmProgressBar.UpdateProgress(intEndRecord - intStartRecord);

   // Acá se lee el archivo y se va cargando el ListView.
   // Esto es un ciclo y dentro lo primero que hace es actualizar la barra por cada 1000 lineas leídas
   if (intRecord mod 1000) = 0 then
   begin
      frmProgressBar.Message := Format('Cargando el ListView... %s', [intRecord]);
      // Lo que se hace en este método es actualizar la posición de la barra,
      // Actualizar el mensaje, hacer un Update del formulario y un "Application.ProcessMessages

      frmProgressBar.UpdateProgress(intRecord - intStartRecord);
   end;

   // Acá toda la lógica para cargar el ListView con los datos leídos del archivo   

finally
   frmProgressBar.Close;  // Cierra el formulario de la barra de progreso después de cargar el ListView.
end;

En este ejemplo, se llama al método ShowModal() en lugar de Show() para abrir el formulario de la barra de progreso en modo modal. Después de cargar el ListView, se llama al método Close() del formulario de la barra de progreso para cerrarlo.

[elrayo76]

Delphi01, si perdón copie el texto cuando estaba haciendo una prueba por algo que encontré en otro mensaje del foro, pero que no funcionó. En donde dices si va Show() y con este es con el que pasa lo que comenté.


Con el Close() que dices hace el mismo problema, con la diferencia de que si levanto el formulario principal el mismo queda bloqueado y no se puede hacer nada.



Saludos

[elrayo76]

Delphi01, perdón entendí mal tu comentario.

Te cuento si pones ShowModal() en vez de Show() lo que haces es que lo que está en el formulario principal no se ejecute, ya que hasta que no se cierra el formulario de la barra no se puede ejecutar otra cosa. Así es como funciona ShowModal() no permite hacer otra cosa en la aplicación si no se tiene en el propio formulario abierto, cosa que no es lógico porque tendría que tener un formulario de progreso por cada otro formulario donde lo necesite.

Con Close() tampoco es la solución porque al cerrarse el formulario de la barra todo lo que quieras hacer en el principal queda bloqueado.

Esto que comento no es que me pase a mi solo, lo he vistos en muchos otros desarrollos y nunca lo solucionaron como corresponde.

Saludos

[Delphi01]

Empezado por elrayo76

Delphi01, perdón entendí mal tu comentario.

Te cuento si pones ShowModal() en vez de Show() lo que haces es que lo que está en el formulario principal no se ejecute, ya que hasta que no se cierra el formulario de la barra no se puede ejecutar otra cosa. Así es como funciona ShowModal() no permite hacer otra cosa en la aplicación si no se tiene en el propio formulario abierto, cosa que no es lógico porque tendría que tener un formulario de progreso por cada otro formulario donde lo necesite.

Con Close() tampoco es la solución porque al cerrarse el formulario de la barra todo lo que quieras hacer en el principal queda bloqueado.

Esto que comento no es que me pase a mi solo, lo he vistos en muchos otros desarrollos y nunca lo solucionaron como corresponde.

Saludos

Hola ,
Tambien pudes utilizar threads (hilos), es una solución.
Saludos.

[elrayo76]

Buenas, si eso de threads podría ser pero por lo que es la aplicación no quiero complicarla mas. Igualmente ya buscando nuevamente por otros foros encontré la solución, que paso a contarles y es muy simple.

Luego de llamar al Release() para cerrar el formulario de la barra de progreso llamo al BringToFront() del formulario principal. Esto hace que el formulario nunca que de por detrás o minimizado luego de cerrar el otro que se llama con Show().

Gracias a todos por responder y espero que a alguien mas le pueda ser de utilidad.

Saludos

[Delphi01]

Empezado por elrayo76

Buenas, si eso de threads podría ser pero por lo que es la aplicación no quiero complicarla mas. Igualmente ya buscando nuevamente por otros foros encontré la solución, que paso a contarles y es muy simple.

Luego de llamar al Release() para cerrar el formulario de la barra de progreso llamo al BringToFront() del formulario principal. Esto hace que el formulario nunca que de por detrás o minimizado luego de cerrar el otro que se llama con Show().

Gracias a todos por responder y espero que a alguien mas le pueda ser de utilidad.

Saludos

Genial , gracias