Pantalla de proceso y barra de progreso

[Neftali [Germán.Estévez]]

Empezado por elrayo76

Tengo una pantalla en mi aplicación Delphi que cuando se clickea sobre un botón para procesar información muestra una barra de progreso que está en otro formulario. El problema es que el formulario de la barra de progreso no se puede mostrar con ShowModal porque el formulario dejaría de procesar.

Aunque no muestres el formulario con ShowModal, puedes ponerle en la propiedad FormStyle el valor fsStayOnTop.
Eso no lo muestra modal, pero debería mantenerlo siempre en primer plano.
https://docwiki.embarcadero.com/Libr...Form.FormStyle

[elrayo76]

Empezado por Neftali [Germán.Estévez]

Aunque no muestres el formulario con ShowModal, puedes ponerle en la propiedad FormStyle el valor fsStayOnTop.
Eso no lo muestra modal, pero debería mantenerlo siempre en primer plano.
https://docwiki.embarcadero.com/Libr...Form.FormStyle

No recuerdo si lo he probado, pero voy a ver que resultados da y comentare por si a alguien le puede servir.

Saludos

[elrayo76]

Buenas noches,

Paso a comentarles que al parecer la solución de poner el formulario StayOnTop funcionó, pero no como todos puedan creer. Para que funcionara cuando se crea el formulario en el evento "formCreate" tuve que poner lo siguiente como primera línea:

Código Delphi [-]
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

y el el evento "FormDestroy" del formulario por seguridad puse lo siguiente:

Código Delphi [-]

SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Esta fue la única forma de que funcionara porque no se que pasa que ninguna de las versiones de Delphi que he probado funciona la propiedad "stayOnTop". La última versión que probé y con la que realmente vengo trabajando es con la 11.2

Saludos

[Neftali [Germán.Estévez]]

Empezado por elrayo76

Paso a comentarles que al parecer la solución de poner el formulario StayOnTop funcionó, pero no como todos puedan creer.

Habría que ver qué códigos estás utilizando en tu aplicación en los eventos OnCreate, OnShow, ... o cómo estás gestionando los formularios. Ver si estás redefiniendo procedimientos como los CreateParams o similares.
La propiedad fsStayOnTop funciona correctamente. Yo la estoy usando y la he probado en diferentes versiones.
Si la activas para un formulario lo mantendrá por encima del resto de los formularios de la aplicación.

Estaría bien, que si comentas que no te ha funcionado, explicaras el porqué.

Empezado por elrayo76

Para que funcionara cuando se crea el formulario en el evento "formCreate" tuve que poner lo siguiente como primera línea:

Comentaba lo anterior, porque al final si revisas el código de la VCL, la propiedad fsStayOnTop en un formulario acaba haciendo lo siguiente:

Código Delphi [-]
SetWindowPos(Handle, HWND_STYLE[FFormStyle = fsStayOnTop], 0, 0, 0, 0,
          SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER);

Si te fijas es bastante similar o igual a lo que tú has puesto en tu código.
Si ver tu código (que sólo conoces tú) es difícil saber porqué esa línea no ha funcionado (o no se ha ejecutado) y sí la que tú has puesto en el FormCreate.