Texto cortado en MessageBox

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