shoulder,
Cita:
Empezado por shoulder
...Tenían razón cuando se llama a algo externo sea token, notepad..etc, al regreso me aparece la ventana minimizada...
|
Cita:
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.