shoulder,
Cita:
|
Empezado por shoulder
...algunas veces al usuario le sale la ventana ShowMessage minimizada...¿hay alguna forma de evitar esto?...
|
Revisa este código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
MsgDialog : TForm;
MsgUser : String;
begin
MsgUser := 'Mensaje al Usuario';
MsgDialog := CreateMessageDialog(MsgUser, mtWarning, [mbYes, mbNo]);
MsgDialog.FormStyle := fsStayOnTop;
MsgDialog.ShowModal;
end;
El código anterior en Delphi 7 bajo Windows 7 Professional x32,
muestra un mensaje modal al usuario por medio del la función CreateMessageDialog, que estará al tope del Z Order y permitirá configurar su visualización según los requerimientos de la aplicación.
Una forma más simple de mensajes al usuario se puede logra por medio del siguiente código:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
MsgUser : String;
begin
MsgUser := 'Mensaje al Usuario';
MessageDlg(MsgUser,mtInformation,[mbOK],0)
end;
El código anterior en Delphi 7 bajo Windows 7 Professional x32,
muestra un mensaje al usuario por medio de la función MessageDlg.
Espero sea útil
Nelson.