MessageDLG en negrita

[[coso]]

Hola alguien sabe si es posible poner parte del texto de un MessageDLG en negrita?

saludos y gracias de antemano

[roman]

No hya una forma sencilla de hacer esto. Lo mejor es que uses un formulario propio para mostrar el mensaje.

// Saludos

[[coso]]

mmm ok gracias roman

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

[[coso]]

Gracias Neftali. Desconocia lo de createmessagedialog. Es mas o menos como crear una form propia pero...gracias a ver si hago algo

[roman]

Empezado por Neftali

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.

De hecho conozco la función CreateMessageDialog y ya he hablado de ella aquí. El problema es que el compañero quiere parte del texto. Y eso es lo que ya no es tan fácil. Puede cambiarse todo el texto en negrita pero no parte; para ello habría que insertar otro TLabel en el MessageDlg en el lugar apropiado a la parte en negritas y luego otro más para lo que venga después de las negritas.

A mi juicio, sale mas fácil hacer un formulario ad-hoc que tratar de adaptar aquél.

// Saludos

[[coso]]

cierto roman, era poner "fichero conectado " y en negrita el fichero. Pero bueno, supongo que funcionara igual
saludos

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

Empezado por roman

...el compañero quiere parte del texto.

No se cómo no vi eso de PARTE....

Nada, que no me hagáis ni caso. Que llevo ya muchas horas delante de la pantalla y no veo ni lo que leo.