Texto cortado en MessageBox

[doctorhd]

Estimados, estoy desplegando un mensaje por pantalla utilizando Application.MessageBox, el tema es que el texto original se corta en 2 lineas, cuestión que no quiero que suceda. Investigando por ahí encontré que este es un comportamiento heredado del sistema operativo (win 7). Como puedo hacer para modificar este comportamiento.

Saludos.

[ozsWizzard]

Supongo que si recorres el texto como si fuese un array y buscas los caracteres "13" y /o "10" y los quitas, o los reemplazas por un espacio, debería funcionar.

[[nlsgarcia]]

doctorhd,

!!! Bienvenido al Club Delphi ¡¡¡

Empezado por doctorhd

...desplegando un mensaje por pantalla utilizando Application.MessageBox, el tema es que el texto original se corta en 2 lineas...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   Msg : String;
   
begin

   for i := 1 to 80 do
      Msg := Msg + IntToStr(i);

   MessageDlg(Msg,mtInformation,[mbOK],0);

   ShowMessage(Msg);

end;

El código anterior permite visualizar un Msg por pantalla sin ruptura de líneas con MessageDlg y ShowMessage.

Revisa esta información:

Empezado por Delphi Help MessageBox method (TApplication):

...The value of the Text parameter is the message, which can be longer than 255 characters if necessary. Long messages are automatically wrapped in the message box

The value of the Caption parameter is the caption that appears in the title bar of the dialog box. Captions can be longer than 255 characters, but don't wrap. A long caption results in a wide message box...

Espero sea útil

Nelson.

[Neftali [Germán.Estévez]]

Estaría bien que enseñaras cómo estás mostrando (código) el texto y cómo se está viendo.

[doctorhd]

Gracias a todos por sus respuestas y por la bienvenida. Respondiendo a:

Empezado por nlsgarcia

Empezado por Delphi Help MessageBox method (TApplication):

...The value of the Text parameter is the message, which can be longer than 255 characters if necessary. Long messages are automatically wrapped in the message box

The value of the Caption parameter is the caption that appears in the title bar of the dialog box. Captions can be longer than 255 characters, but don't wrap. A long caption results in a wide message box...

La cantidad de caracteres que se despliegan es inferior a 255, tanto en el titulo como en el mensaje..

Empezado por Neftali

Estaría bien que enseñaras cómo estás mostrando (código) el texto y cómo se está viendo.

.
.
const
    ConstNombreSistema: String = 'Sistema Prueba'; //Nombre sistema
    ConstVersionSistema: String = 'v1.0-2013';     //Version
    ConstNombreEmpresa: String ='Empresa Prueba';   //Empresa


resourcestring

     MsgRutaBDNoEncontrada='La ruta de acceso de la base de datos del sistema no ha sido encontrada, deberá ingresarla manualmente. ¿Desea efectuar esta operación?';

Implementation

Begin

    VarDescripcionSistema:= ConstNombreSistema + ' - ' + ConstVersionSistema + '...(' + ConstNombreEmpresa + ')';//Descripcion completa del sistema;

//Se informa al usuario que debe ingresar la ruta manualmente
     If Application.MessageBox(PWideChar(MsgRutaBDNoEncontrada), PWideChar(VarDescripcionSistema + MsgControlError), MB_YESNO + MB_DEFBUTTON1 + MB_ICONEXCLAMATION) = IDNO Then Begin
          .
          .
          .
     End //If

El mensaje desplegado es el siguiente:

[ecfisa]

Hola doctorhd.

Application.MessageBox encapsula la la funcion MessageBox. La cantidad de caracteres por línea que muestra está predeterminada por el S.O. (acorde a la versión) y realizará el salto de línea de forma automática. No es posible alterar ese comportamiento.

En mi opinión, la solución que te resultará más versátil, es que realices tu propia función para presentar los mensajes; esto es muy sencillo de realizar usando un TForm mostrado de forma modal.

Saludos.

[doctorhd]

ecfisa, estas seguro que no es posible modificar dicho comportamiento, mediando la misma API de Windows...

Saludos...

[ecfisa]

Hola doctorhd.

Empezado por doctorhd

ecfisa, estas seguro que no es posible modificar dicho comportamiento, mediando la misma API de Windows...

Saludos...

Hasta donde sé no es posible, nada dice al respecto la referencia de microsoft.

En este enlace, aunque de forma indirecta se habla del tema: Max. no. of characters in a message...
Y en este, al que hace referencia el anterior, hay un poco mas al respecto: MessageBox wrapping text...

Si existe alguna forma indocumentada de alterar el algorítmo original para lograr otro comportamiento, la ignoro.

Saludos.

[[nlsgarcia]]

doctorhd,

Te sugiero considerar la solución propuesta en el Msg #6, la cual se adapta a la solución buscada. Otra opción sería implementar mensajes mas sucintos, para lo cual podrías seguir usando cualquiera de las opciones de visualización de mensajes de Delphi.

Espero sea útil

Nelson.

[ecfisa]

Empezado por nlsgarcia

Otra opción sería implementar mensajes mas sucintos, para lo cual podrías seguir usando cualquiera de las opciones de visualización de mensajes de Delphi.

Totalmente de acuerdo.

Código Delphi [-]
...
const
 MSG = 'El programa no pudo encontrar la ruta a la base de datos.'
       +#10 + #10 + '¿ Desea ingresarla manualmente ?';
begin
  if Application.MessageBox(PChar(Msg),PChar('blabla...'), MB_YESNO+MB_ICONWARNING+MB_DEFBUTTON1) = IDNO then
    Application.Terminate;
  ...

Creo que mensajes similares a este tienen una presentación prolija y son lo suficientemente claros para el usuario.

Saludos.

[Neftali [Germán.Estévez]]

Prueba un código como este, a ver si se acerca a lo que necesitas.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  res:TModalResult;
  AMsgDialog: TForm;
const
  MsgRutaBDNoEncontrada='La ruta de acceso de la base de datos del sistema no ha sido encontrada, deberá ingresarla manualmente. ¿Desea efectuar esta operación?';
begin
  // crear el mensaje
  AMsgDialog := CreateMessageDialog(MsgRutaBDNoEncontrada, mtWarning, [mbYes, mbNo]);
  // proteccion para liberar
  try
    // Añadir al mensaje el link
    AMsgDialog.Width := AMsgDialog.Width + 40;
    AMsgDialog.Caption := 'Sistema Prueva  - v1.02013...';
    // Visualizar la ventana
    res := AMsgDialog.ShowModal;
  finally
    FreeAndNil(AMsgDialog);
  end;
end;

Un saludo.

[Neftali [Germán.Estévez]]

El resultado es algo así:



Aunque sinceramente, casi veo mejor el que has puesto tú...

[ozsWizzard]

Entendí la pregunta fatal...

Aunque, como dicen por aquí, lo que mejor veo es formatear el mensaje, claro que así no te vale la constante...

Se puede hacer con varias constantes también, la parte de la pregunta, algo que va a ser muy estándar, puede ser una constante global por si misma.

Saludos

[[Al González]]

Empezado por Neftali

Aunque sinceramente, casi veo mejor el que has puesto tú...

+1


Hola doctorhd, no sé si hayas escuchado hablar de por qué el texto de los periódicos se imprime en columnas y no a todo lo ancho de la página:

Además, con la división por columnas, la lectura resulta fácil y cómoda, pues sería mucho más monótono y cansino para la vista leer líneas de texto tan largas que ocupasen todo el ancho de una plana de periódico.

Esto, incluso, es una de las razones por las cuales no escribo código fuente más allá de la posición 75.

[doctorhd]

Gracias a todos por su ayuda, finalmente implemente mi propia función para enviar mensajes al usuario y aunque tienen razón en que estéticamente no es aconsejable mostrar mensajes extensos en solo una linea, quería tener mas control sobre como se mostraba dicha información al usuario.