Manipular ShowMessage

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[dec]

Hola,

Como poderse hacer, creo que se puede hacer algo, y aun algos, pero, nada comparable a preparar un formulario por tu cuenta, con los componentes que necesites, y los métodos que creas oportunos. Yo creo que esto último puede ser lo más práctico, ahora, si lo que quieres es lo que dices y punto, entonces me callo y ya está.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[roman]

Código Delphi [-]
var
  Form: TForm;

begin
  Form := CreateMessageDialog('Hola mundo', mtCustom, [mbOk]);
  Form.Color := clRed;
  if Form.Controls[0] is TLabel then
  begin
    TLabel(Form.Controls[0]).Font.Color := clGreen;
    TLabel(Form.Controls[0]).Font.Style := [fsBold];
  end;

  with Form do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;

ShowMessage usa internamente a CreateMessageDialog.

// Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

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

A parte de manipular los controles existentes, puedes añadirle nuevos; En el truco 477 tienes cómo hacerlo.

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