MessageDLG en negrita

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

Bueno, tan difícil no es; Zarko Gajic escribió un artículo sobre la modificación de diálogos. A partir de ese artículo es fácil extraer cómo modificar el diálogo.

Pon un formulario con un botón y añádele este texto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  AMsgDialog: TForm;
  lblMessage:TLabel;
begin
  // Cear el diálogo
  AMsgDialog := CreateMessageDialog('This is a test message.      ', mtWarning, [mbYes, mbNo]) ;
  // Proteccioin para liberar
  try
    AMsgDialog.Caption := 'Dialog Title' ;

    // Acceder al label
    lblMessage := TLabel(AMsgDialog.FindComponent('Message'));
    lblMessage.Font.Style := lblMessage.Font.Style + [fsBold];
    lblMessage.Anchors := lblMessage.Anchors + [akRight];

    // Visualizar
    if (AMsgDialog.ShowModal = ID_YES) then begin
      // Pulsado YES

    end
    else begin
      // PULSADO NO
    end;
  finally
    AMsgDialog.Free;
  end;
end;

Es fácil de entender y modificar.