MessageDlg o Application.MessageBox con 2 lieneas de mensaje

[BuRtOn]

Saludos amigos, cree este nuevo hilo para preguntar una cosa que vi en visual basic y quiero saber si en delphi existe esa posibilidad, pues fijence que mi profesor de visual creo un boton y que al oprimirlo saliera un MessageDlg en visual es un MessageBox.Show, el hecho es que el mensaje salia de la siguiente forma:

MessageBox = "Hola A todos esto es una"
"Prueba mensaje 2 lienas"


Y no quiero que salga como siempre y por defecto:

MessageBox = "Hoa A todos esto es una prube mensaje 2 lineas"

el mensaje salio en dos lienas como lo observa en el ejemplo, en delphi siempre me limito a escribir mensajes cortos, pero ahora me toca escribir algo de una longitud considerable y no se como pasar al siguien carril o linea...yo utilizo el Applicatio.MessageBox y el MessageDlg, por favor si alguien sabe como es el truco, o la forma de hacer posible esto, se lo agradeceria, Muchisimas gracias....

[[enecumene]]

Haz esto:

Messagebox = "estoy probando esta propuesta#13
porque la linea es muy larga"

Sólo agregas "#13" que equivale a un línea nueva, creo que esto es lo que buscas.

Saludos.

[[enecumene]]

Edito: Delphius ha puesto un ejemplo más claro.

[[Delphius]]

Fernando, nos vamos a tener que ponernos de acuerdo. Si si hacemos lio tal vez Emilio nos baja el sueldo

Encima que algunos se fueron de vacaciones y nos dejaron más trabajo!

Saludos,

[[enecumene]]

Empezado por Delphius

Fernando, nos vamos a tener que ponernos de acuerdo. Si si hacemos lio tal vez Emilio nos baja el sueldo

Encima que algunos se fueron de vacaciones y nos dejaron más trabajo!

Saludos,

¿Bajarnos el sueldo? , joder, eso es lo que menos quisiera

[[Delphius]]

Empezado por BuRtOn

Huy gracias...Delphius una pregunta, es que a mi me gusta entender las cosas, y mi pregunta es, para que utilizas el PChar, que funcion cumple..???, es que lo he visto en otra ocasion....por ejemplo cuandop trate de editar el binario en el registro, tu me pasaste un codigo y obtenia un PChar....gracias a todos por su grandioso tiempo..

Por empezar, TApplication.MessageBox() necesita de 2 parámetros PChar. Un PChar es un tipo un tanto especial... para hacerlo simple es un puntero a un conjunto de caracteres. De modo que cuando uno hace PChar(Algo), le está indicando que lea el contenido de la dirección de memoria de la variable algo.

Lo que sucede es que si uno pone un string cualquiera en dichos parámetros el compilador solito no reniega y se encarga de hacer la "conversión" necesaria. Pero si tu quieres mostrar el contenido de una variable string, el compilador te dirá que es incompatible el String con PChar. Necesitarás hacer uso de PChar.

Por otro lado, te tengo una sorpresita. Esto dice la ayuda sobre TApplication.MessageBox():

Use MessageBox to display a generic dialog box a message and one or more buttons. Caption is the caption of the dialog box and is optional.

MessageBox is an encapsulation of the Windows API MessageBox function. TApplication’s encapsulation of MessageBox automatically supplies the missing window handle parameter needed for the Windows API function.

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.

The Flags parameter specifies what buttons appear on the message box and the behavior (possible return values). The following table lists the possible values. These values can be combined to obtain the desired effect.

Presta atención a lo resaltado. Dice que los mensajes largos son cortados, para mostrarlos en otra linea. ¿Será?

Hagamos la prueba:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var texto: string;
begin
  texto := 'Este texto es lo suficientemente grande como para que tal vez no entre en un "dialogo normal"... hay que ver como se vé.... y continua.... y continua... ¿Tendrá fin esto? Veamos... che... ¿Se pasa a la segunda línea?';
  Application.MessageBox(PChar(texto),'titulo',MB_OK)
end;

¿Como se vé? ¿Lo corta? ¿Te gusta como queda?

No más te lo dejo como dato curioso Tu saca conclusiones. ¿Lo cortamos a mano?

Saludos,

[BuRtOn]

Huy gracias...Delphius una pregunta, es que a mi me gusta entender las cosas, y mi pregunta es, para que utilizas el PChar, que funcion cumple..???, es que lo he visto en otra ocasion....por ejemplo cuandop trate de editar el binario en el registro, tu me pasaste un codigo y obtenia un PChar....gracias a todos por su grandioso tiempo..

[[Delphius]]

No se... che... Ummm... ¿probaste con poner un #13 entre ambos texto? ¿Algo como esto?:

Código Delphi [-]
Application.MessageBox(PChar('Este en la primera linea' + #13 + 'Este en la segunda'),PChar('titulo'),MB_OK)

Saludos,