Showmessage minimizado

[Casimiro Notevi]

Empezado por gdlrinfo

OK disculpas !!!!! Y gracias!!!

Gracias por tu comprensión

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...JSignPdf 1.4.5 - CAPICOM 1.0.1.32...

Te sugiero:

1- Probar el código del Msg #11 y ver como se comporta en relación al problema descrito.

2- Probar las últimas versiones de JSignPdf versión 1.6.0 y CAPICOM versión 2.1.0.1 y ver como se comporta en relación al problema descrito.

Revisa esta información:

1- JSignPdf versión 1.6.0

2- CAPICOM versión 2.1.0.1

Espero sea útil

Nelson.

[engranaje]

Si esta pasando lo que yo sospecho, aunque en el Button1Click lanzaras cualquier ejecutable (el notepad.exe mismo)
y despues lanzaras el

Código Delphi [-]
MessageDlg(MsgUser,mtInformation,[mbOK],0);

tendrias el mismo problema, podrias probarlo si no fuera mucha molestia. Por otra parte si pudieras hacer otro boton
con el mismo código pero en vea de llamar a messgedlg lo que hicieras fuera crear un nuevo formulario para mostrar mensajes
pasandole el formulario padre como owner y lo llamaras con showmodal es posible que evitaras el problema.
Yo probaría esas dos opciones.
Me temo que si trazas los showmessage y los messageDlg por la vcl hasta el momento en que
hacen el sendmessage para llamar a la api de windows y crear la ventana, y lo comparas con el modo en el que se envia el
mensaje para crear el form podras ver alguna diferencia en los parametros que se pasan. Si estoy en lo cierto esa diferencia es
la que provoca el comportamiento que te preocupa.

[shoulder]

Tenian razon cuando se llama a algo externo sea token, notepad..etc, al regreso me aparece la ventana minimizada. De las 4 veces que probe una sola vez me aparecio bien. Probe el ejemplo del :

procedure TForm1.Button1Click(Sender: TObject);
var
MsgUser : string;
begin
ShellExecute(Handle,'open', 'c:\windows\notepad.exe','c:\cc.txt', nil, SW_SHOWNORMAL) ;
MessageDlg(MsgUser,mtInformation,[mbOK],0);
end;

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...Tenían razón cuando se llama a algo externo sea token, notepad..etc, al regreso me aparece la ventana minimizada...

Empezado por engranaje

...en ves de llamar a MessageDlg lo que hicieras fuera crear un nuevo formulario para mostrar mensajes pasándole el formulario padre como owner y lo llamaras con Showmodal es posible que evitaras el problema...

Te sugiero probar el siguiente código en sustitución de la función MessageDlg y ver como se comporta en relación al problema descrito:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   MsgDialog : TForm;
   MsgUser : String;

begin

   MsgUser := 'Mensaje al Usuario';
   MsgDialog := CreateMessageDialog(MsgUser, mtWarning, [mbOk]) ;
   MsgDialog.FormStyle := fsStayOnTop;
   MsgDialog.ShowModal;
   MsgDialog.Free;

end;

El código anterior en Delphi 7 sobre Windows 7 Professional x32, crea un formulario de mensajes para el usuario, lo coloca al tope del Z-Order y lo muestra en modo ShowModal.

Espero sea útil

Nelson.

[engranaje]

Si no me equivoco, sucede que cuando creas una ventana desde delphi 7, bien creando tu propio form, con un showmessage o con un messagedlg, al final y siguiendo la vcl vas a llegar al

Código Delphi [-]
  TCustomForm.CreateWindowHandle(const Params: TCreateParams)

y dentro a la llamada a la api en cuestion bien a

Código Delphi [-]
WindowHandle := SendMessage(Application.MainForm.ClientHandle,
      WM_MDICREATE, 0, Longint(@CreateStruct));

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

o a

Código Delphi [-]
CreateWindowEx(ExStyle, WinClassName, Caption, Style,
      X, Y, Width, Height, WndParent, 0, WindowClass.hInstance, Param);

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

Según los parametros que en útima instancia se le esten pasando a CreateWindowHandle. Bien, si no me equivoco al llamar a otra aplicación con ShellExecute, esa otra aplicación pasa a estar activa mientras la nuestra pasa a segundo plano. Con la nuestra en segundo plano al llamar amn showmessage o messagedlg al final lo que hace es enviar al sistema un mensaje WM_MDICREATE creando una nueva ventana que tiene como "padre" en el zorder al mainform. Lo que creo es que como nuestra aplicación no está activa la ventana se crea efectivamente pero no como esperamos.

Siento no poder ser de mucha ayuda pero si ya has sido capaz de llegar hasta ese punto yo solo probaría con ese form propio asegurandote de que el padre y el owner es el form desde el que se llama para que finalmente la llamada a la api sea a createWindowEx y el wndParent sea el form desde el que se llama (si no me equivoco el activo en nuestra aplicación). Creo de veras que de este modo podria solucionarse el problema.

[shoulder]

Gracias por todo. Al final les dije a los usuarios si ven bloqueado el programa hagan click en la barra de windows porque la ventana esta minimizada y ya se acostumbraron. Aclaro no siempre se comporta asi.

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...Al final les dije a los usuarios si ven bloqueado el programa hagan click en la barra de Windows porque la ventana esta minimizada...ya se acostumbrarón...

Nelson.

[shoulder]

Hola hace tiempo habia posteado este tema pero sigo sin resolverlo por si a alguno le sucede. Despues de firmar digitalmente (no siempre), usando showmessage o MessageDlg, me llaman que la aplicacion quedo trabada y no es asi, el mensaje esta minimizado y hago click sobre el icono del programa en la barra de tareas y continuan bien. Pero es molesto para el usuario.

Hay una forma para dar la orden de que el mensaje no salga minimizado?, por lo que veo despues de usar el Java del firmador vuelve al programa y algo en el delphi hace que se vea el mensaje minimizado pero en forma random no siempre lo hace.

Gracias.

[Caminante]

Hola.

¿Y si utilizas application.messagebox pasa lo mismo?

Bueno es solo una sugerencia. A mi nunca me ha pasado eso.

Saludos

[shoulder]

Gracias voy a probar, porque cada tanto me llaman y me dicen no anda el sistema.......
cuando abro un programa que hice para scanear solucione el tema agregando

vHandle := FindWindow(nil, 'Scanear');
if vHandle <> 0 then
SetForegroundWindow (vHandle);

Pero con un mensaje no se como llamar.
Gracias.

[ecfisa]

Hola shoulder.

Existían tres hilos referentes al mismo problema y los combiné en el inicial. Si el problema es el mismo, por favor continúa publicando tus consultas en el primer hilo para evitar resultados redundantes en las búsquedas.

Saludos y gracias por tu colaboración

[Casimiro Notevi]

Ya me estaba liando con tanto mensaje que tocaba el mismo tema

Empezado por ecfisa

Hola shoulder.
Existían tres hilos referentes al mismo problema y los combiné en el inicial. Si el problema es el mismo, por favor continúa publicando tus consultas en el primer hilo para evitar resultados redundantes en las búsquedas.
Saludos y gracias por tu colaboración

[[nlsgarcia]]

shoulder,

Empezado por ecfisa

...Existían tres hilos referentes al mismo problema y los combiné en el inicial...

Pregunto : ¿Has probado todas las opciones propuestas que se encuentran distribuidas entre todos los mensajes de este hilo?

Si : Te sugiero que acuerdes con un usuario (El que mas te llame por el evento en cuestión) que te avise antes de cada proceso de firma digital y verifiques de forma presencial que puede estar provocando que el mensaje modal sea minimizado.

No: Revisa las opciones propuestas

Espero sea útil

Nelson.

[shoulder]

Hola por eso habia dicho antes que el tema se habia hablado, lo probe con todo y solucione parcialmente con la forma :

Código Delphi [-]
 vHandle := FindWindow(nil, 'Scanear');
           if vHandle <> 0 then
           SetForegroundWindow (vHandle);

cuando otro programa delphi (en este caso hice un programa que scanea) y con esas sentencias no me aparece minimizado sino al frente.-

El tema es cuando es un mensaje ejemplo :

Código Delphi [-]
Msg := 'Archivo Cambiado';
  MessageBox(Handle, PChar(Msg), PChar('Error'), MB_OK + MB_ICONERROR);

o con messagebox, en forma aleatoria aparece minimizado el mensaje o es mas una vez me paso que ni aparecio el mensaje. usando el Handle puedo forzar un mensaje para que aparezca adelante?.

[shoulder]

Me parece que lo solucione de esta forma, por ahora no me han llamado:

Código Delphi [-]
Msg := 'Existe un Documento Activo en el View PDF';
MessageBox(Handle, PChar(Msg), PChar('Information'), MB_OK + MB_ICONINFORMATION);


vHandle := FindWindow(nil, 'Information');
           if vHandle <> 0 then
           SetForegroundWindow (vHandle);