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.