Texto cortado en MessageBox

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