Showmessage minimizado

[shoulder]

Mañana lo pruebo, les comento cuando se vuelve, digo medio loco el delphi....cuando no se borra el historial de los tokens de firma digital te aparece minimizado en java el boton de cancelar, le das click y despues con la clave sigue el prg, pero a partir de ahi algunas veces las ventanas forms se minimizan.

2) Yo desde el `programa creo reportes excel o word y tambien despues de eso puede pasar que el form se minimice. Y el usuario me llama y me dice se bloqueo el sistema.

De seguro como siempre las sugerencias de ustedes funcionan. Pero hay algo entre delphi 7 y windows 7 que con el uso de capicom (firma digital, jsignpdf o librerias de word o excel es como que lo desconfiguran, no siempre aclaro pero hace esas cosas extrañas de minimizar o queda atras de la ventana menu).

Gracias como siempre.

[engranaje]

Me ha sucedido algo parecido. Lo cierto es que mi problema en cuestión era que si desde una ventana abria otra y cambiaba la aplicación activa tanto ejecutandola yo por código como el usuario pulsando sobre ella, al volver a mi aplicación la última ventana abierta aparecía minimizada.
Yo por mi parte cuando ser refiere a desarrollos en versiones de delphi antiguos y me pasan temas de este estilo con algunos usuarios y otros no, le echo un vistazo a los cambios en la api de windows para saber en que ha cambiado desde que salió el delphi que estoy utilizando, hasta la versión de dll en cuestión que tiene el usuario. Me temo que el dichoso zorder ha cambiado mas de una vez a lo largo de estos años y una actalización del explorer puede cambiar el modo en el que se comportan la ventanas de una aplicación.
No soy de mucha ayuda pero si pudieras comprueba en tu equipo cuando llamas a otra aplicación y el foco pasa de la tuya a la nueva donde cual es la ventana activa antes de que cambie la aplicación y cual cuando vuelves a ella.

[shoulder]

Hola engranaje por eso decia que el jsingpdf o capicom me desconfiguraba el tema de las ventanas delphi. Ahora estoy probando los aportes de nuestros compañeros del foro.

[shoulder]

Probe lo ejemplos pero no me funciono. Me deja la ventana siempre adelante y los showmessage me quedan atras y se me bloquea todo.

[ecfisa]

Empezado por shoulder

Probe lo ejemplos pero no me funciono. Me deja la ventana siempre adelante y los showmessage me quedan atras y se me bloquea todo.

Ah, pero eso es lógico desde que se fija su estado a fsStayOnTop... Es claro que en ese estado cualquier ventana emergente quedará detrás. Lo único que el código garantiza es que no van a minimizar la ventana.

Yo no encontré otro modo, la combinación de teclado WIN+D por ejemplo, burla hasta un hook de teclado local opción que no soy partidario de usar, pero que también probé.

Sólo te puedo sugerir que si el problema se produce por accion de un usuario, vayas hagas click sobre la barra de tareas de Windows, expliques que el problema no es tu programa sino el usuario y lo cobres caro, pero muuuuy caro. (Eso hará que el dueño (el que paga) le explique al empleado que debe hacer click sobre la barra de tareas la próxima vez que suceda. )

Saludos

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...cada tanto y en forma aleatoria...la ventana Hijo aparece minimizada...hago click sobre la barra de tareas de Windows y aparece...¿Que puede ser?...

Empezado por shoulder

...Probé lo ejemplos pero no me funciono...deja la ventana siempre adelante...se me bloquea todo...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   FormStyle := fsNormal;
end;

procedure TForm1.Timer1Timer;
begin
   if not Application.Active then
      Application.Restore;

   if WindowState = wsMinimized then
      WindowState := wsNormal;

   if not Visible then
      Visible := True;
end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, impide que el formulario Form1 sea minimizado por:

1- Botón de minimizar en el formulario.

2- Combinación de teclas : Windows + D

3- Funciones : SendMessage, PostMessage, Perform y ShowWindow.

En resumen : El formulario no puede ser minimizado manualmente o programáticamente y no se coloca al tope del Z-Order, por lo cual no interfiere con los mensajes de la aplicación.

Espero sea útil

Nelson.

[ecfisa]

Hola Nelson.

Si yo había probado chequear el estado mediante un timer. Pero adolece del defecto que no funciona si existe alguna otra ventana modal abierta vg.: ShowMessage, MessageBox, ..., u otro form modal, ya que en ese caso WIN+D minimizará todo.

Agrego un poco de codigo a tu ejemplo para mostrar a lo que me refiero:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

const
  WM_AFTER_SHOW = WM_USER + 301;
  
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW;
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   FormStyle := fsNormal;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if not Application.Active then
      Application.Restore;

   if WindowState = wsMinimized then
      WindowState := wsNormal;

   if not Visible then
      Visible := True;
end;

procedure TForm1.WmAfterShow(var Msg: TMessage);
begin
 ShowMessage('Presiona WIN + D ...')
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   PostMessage(Self.Handle, WM_AFTER_SHOW,0,0);
end;
end.

Yo creo que shoulder tendría que dejar bién claro cuales son los problemas intrínsecos a su aplicación y cuales no. Si no va a terminar escuchando en el teléfono cosas como: "¡ Venga urgente que el programa desapareció misteriosamente !" y resultó ser que el protector de pantalla se había activado...

Si sus empleados son inoperantes, que que hagan un curso del S.O. que estan empleando. Y si no, que vaya, solucione el problema y lo cobre como corresponde...

Saludos

[ecfisa]

Hola.

Si Nelson, entonces sin dudas son las versiones..., tambié lo había mencionado engranaje antes:

Empezado por engranaje

...Me temo que el dichoso zorder ha cambiado mas de una vez a lo largo de estos años y una actalización del explorer puede cambiar el modo en el que se comportan la ventanas de una aplicación.
...

La experiencia me dice que, cuando los sistemas crecen tienden a la intrusión, ya bastantes problemas trae hacer un programa que realice bién y de forma eficiente las taréas para las que fué diseñado, para cargarse mas piedras a la espalda...

Es por eso que le sugerí a shoulder que se haga cargo sólo de los inconveniente generados por su aplicacion, no de los provocados por otra o el SO. De otro modo terminaremos diseñando el sistema, programándolo, manteniéndolo y encima tenemos que hacer docencia capacitando el personal y si le das pié al empresario, no dudes que hasta especialista en seguridad informática y por que nó, de técnico de hardware.

Es indispensable hacer responsablemente nuestro trabajo, pero también lo es poner en claro los límites del mismo. Y si un empresario tiene un empleado opa, que pague por su capacitación o lo cambie por uno capacitado. Vamos... Que hacer un click sobre la barra de tareas de windows no es una actividad tan compleja...

Saludos

[mamcx]

Esto me parece muy bizarro.

El problema es que la app se congela. No es un problema que se minimizer. Es odioso cuando una app no funciona acorde a como debe funcionar de acuerdo a su OS.

No hay razon para negar minimizar una app.

Ademas: Un problema no se arregla atacando sintomas, sino causas. Están desgastandose con un montón de cosas (que ademas van en contra de como se supone que funciona una app en windows) y no se a respondido la ? fundamental: Porque pasa esto?

[ecfisa]

Hola mamcx.

Primero que nada te aclaro que estoy casi totalmente de acuerdo con lo que expones en tu mensaje, pero:

Empezado por mamcx

El problema es que la app se congela.

La consulta inicial de shoulder fue:

Empezado por shoulder

A veces me llaman los usuarios que se les bloqueo el programa, pero no es asi, la ventana Hijo aparece minimizada, voy hago click sobre la barra de tareas de Windows y aparece, no sucede siempre cada tanto y en forma aleatoria. Que puede ser?.

Como verás no sólo no menciona nada hacerca de bloqueo o congelamiento, sino que afirma lo contrario.

Empezado por mamcx

Un problema no se arregla atacando sintomas

En mi primera respuesta, aunque de forma indirecta, coincido con lo que expones:

Empezado por ecfisa

Es muy difícil poder inferir la causa con esa información,...
...
Si bién no revela el orígen del comportamiento, podría ser una solución transitoria hasta que encuentres el motivo.

Empezado por mamcx

No hay razon para negar minimizar una app.

También de acuerdo, como lo expresé aquí:

Empezado por ecfisa

Es por eso que le sugerí a shoulder que se haga cargo sólo de los inconveniente generados por su aplicacion, no de los provocados por otra o el SO.
...
Vamos... Que hacer un click sobre la barra de tareas de windows no es una actividad tan compleja...

Saludos

[[nlsgarcia]]

Daniel,

Empezado por ecfisa

...Que hacer un click sobre la barra de tareas de Windows no es una actividad tan compleja...

Nelson.

[[nlsgarcia]]

mamcx,

Empezado por mamcx

...Un problema no se arregla atacando síntomas, sino causas...no se a respondido la pregunta fundamental: ¿Porque pasa esto?...

Es correcto , sin embargo en ITIL (Information Technology Infrastructure Library) existe la opción de workarouds:

Empezado por ITIL Service Operation > Problem Management

Workarounds are temporary solutions aimed at reducing or eliminating the impact of Known Errors (and thus Problems) for which a full resolution is not yet available. As such, Workarounds are often applied to reduce the impact of Incidents or Problems if their underlying causes cannot be readily identified or removed.

Tomado de : ITIL Glossary/ ITIL Terms W

Todo lo sugerido en este hilo es una workaround al problema conocido, hasta que se identifique la causa raíz del mismo y se de una solución definitiva a este problema, descrito en el Msg #1

Nelson.