Showmessage minimizado

[shoulder]

Hola porque algunas veces al usuario le sale la ventana showmessage minimizada y me llama que el sistema esta bloqueado, cuando miro es que solo esta minimizada, hay alguna forma de evitar esto?.
Gracias.

[Casimiro Notevi]

Un poco difícil contestar sin ver nada de código

[shoulder]

Hola, a veces pasa no siempre y los lineas son asi..

if error = 0 then
begin
showmessage('PDF FIRMADO');
Mylabel3d17.Caption := 'Primera Firma Asignada';
Iaeverbutton12.Enabled := False;
end;

a veces el mensaje sale minimizado y me llaman que se bloqueo el sistema, voy a la barra de tareas y el mensaje se encuentra ahi minimizado hago click doy aceptar y sigue funcionando bien.
Gracias.

[engranaje]

Estaría bien saber que versión de delphi utizas y que sistema operativo estas utiilzando. Con versiones antiguas de delphi hablo de delphi 2.0 o delphi 5.0 puede pasar que los showmessages y otras ventanas de la aplicación queden por por detras de ventanas modales o minimizadas en algunos so y funcionen correctamente en otros. Por experiencias propias tiene que ver mas con las versiones de algunas dll, el funcionamiento de la api de windows sobre todo en lo que se refiere al Z order ha cambiado ya algunas veces durante estos años.
No es lo mismo que esto te pase utilizando xe6 y lanzando el ejecutable en un windows 8.1 que compilando en delphi 5.0 y ejecutando en un xp sp3.

[shoulder]

Muchas Gracias por tu respuesta

Delphi 7 Build 4.453
Windows 7 32 bits.

No pasa siempre, es como dices, hay veces que la ventana se va para atras o se ve minimizada

[ecfisa]

Hola shoulder.

Es realmente extraño, hasta ahora no había escuchado ese comportamiento de ShowMessage con Delphi 7.

Pero a decir verdad, nunca uso el procedimiento ShowMessage sino la función API MessageBox y jamás me ha dado problema alguno.

El cambio no es grande, a modo de ejemplo:

Código Delphi [-]
  MessageBox(0, 'PDF FIRMADO', '', MB_OK);

Saludos

[shoulder]

Trabajo con Windows 7 - Delphi 7.

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?.

uso Form Común
Position : PoScreenCenter
PrintScale : Poproportional

Gracias.

[ecfisa]

Hola shoulder.

Es muy difícil poder inferir la causa con esa información, pero este código tendría que impedir que un form se minimize:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
  public
  end;

...

procedure TForm1.WMSysCommand(var Msg: TMessage);
begin
  if Msg.WParam <> SC_MINIMIZE then
    inherited;
end;

Si bién no revela el orígen del comportamiento, podría ser una solución transitoria hasta que encuentres el motivo.

Saludos

[[nlsgarcia]]

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?...

Quizás la respuesta más simple sea : El usuario

Revisa este código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   BorderIcons := BorderIcons - [biMinimize];
end;

El código anterior en Delphi 7 bajo Windows 7 Professional x32, deshabilita la opción de minimizar el formulario Form1.

Espero sea útil

Nelson.

[TiammatMX]

Empezado por nlsgarcia

...Quizás la respuesta más simple sea : El usuario ...

En desacuerdo con nlsgarcía..., la respuesta más simple ES PROBLEMA, CULPA Y RESPONSABILIDAD DEL USUARIO..., siguiendo la máxima que define a la Ley de Murphy, colofón de sistemas: "Si tu aplicación tiene problemas insolublemente aleatorios, otro tiene la culpa", y es por eso que tienes que pensar como usuario curioso y preparar tus aplicaciones PARA CUALQUIER EVENTUALIDAD.

[ecfisa]

Hola.

Pude comprobar que las opciones de los mensaje #2 y #3 fallan con combinaciones de teclas como WIN + D que hacen que el form se minimize. (Y debe ser algo como eso lo que están haciendo...)

Pero complementándo cualquiera de ellas con este código, creo que te va a resolver el problema:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  FormStyle:= fsStayOnTop; // o desde el Obj. Insp.
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  SetwindowLong(GetWindow(Handle, GW_OWNER), GWL_STYLE, 0);
  SetwindowLong(GetWindow(Handle, GW_OWNER), GWL_EXSTYLE, 0);
  OnShow:= nil;
end;

Probalo y nos comentas.

Saludos

[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