Manipular ShowMessage

[Omega]

Ey gracias roman, yo también tenia curiosidad.

Por cierto, ¿Y mostrar una imagen seria posible? Al igual que sale por ejemplo la imagen de error, exclamación, información,...

Saludos.

[roman]

Empezado por Omega

¿Y mostrar una imagen seria posible? Al igual que sale por ejemplo la imagen de error, exclamación, información,...

Sí se puede. Ya lo contempla la función CreateMessageDialog. En lugar de mtCustom en el segundo parámetro, puedes poner mtError, mtWarning, mtInformation o mtConfirmation.

// Saludos

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

Empezado por Omega

¿Y mostrar una imagen seria posible?

Empezado por roman

En lugar de mtCustom en el segundo parámetro, puedes poner mtError, mtWarning, mtInformation o mtConfirmation.

Yo entiendo que Omega se refiere justo a lo contrario Román; A poner una imagen que no sea una de las estandard.

Si es así, basta con acceder al componente de Image:

Código Delphi [-]
      img := TImage(AMsgDialog.FindComponent('Image'));

Y cargar en ella desde un recurso o desde disco la imagen que desees.

[roman]

Tienes razón Neftalí. Pero hay que tener cuidado, porque el formulario en sí no contiene ningún TImage, sino que lo crea e inserta la misma función CreateMessageDialog en caso de que el segundo parámetro sea distinto de mtCustom, así que habría que especificar uno cualquiera, digamos mtWarning, y sustituir la imagen como indicas.

También podría uno mismo crear un TImage pero creo que es más complicado porque la función es la que hace el cáculo de medidas para saber dónde coloca el texto.

// Saludos

[JUGUE]

Hola A todos.
Quiero Decirles Que Probe este metodo, pero al cambiar mtCustom por mtWarning me sale la imagen ... Pero no me asume las modificaciones en el Label, como el color y tamaño de la fuente, No se si es que falte algo o no se que pase... Gracias.