Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   MessageDLG en negrita (https://www.clubdelphi.com/foros/showthread.php?t=57865)

coso 30-06-2008 19:25:41

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

saludos y gracias de antemano

roman 30-06-2008 19:32:51

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

// Saludos

coso 30-06-2008 19:33:29

mmm ok gracias roman

Neftali [Germán.Estévez] 01-07-2008 09:22:53

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 01-07-2008 10:23:29

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

roman 01-07-2008 16:20:51

Cita:

Empezado por Neftali (Mensaje 297372)
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 01-07-2008 16:30:04

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

Neftali [Germán.Estévez] 01-07-2008 17:14:19

Cita:

Empezado por roman (Mensaje 297447)
...el compañero quiere parte del texto.

:eek::eek::eek::eek::eek::eek:
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.


La franja horaria es GMT +2. Ahora son las 17:34:17.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi