[Delphi]cambiare font a un MessageDlg

[kate71]

Salve !
vorrei sapere se è possibile cambiare font
ad un MessageDlg .
Se si come posso fare?
o in caso, esistono altri tipi di messaggi
che consentono una modifica di questo tipo?

Grazie!
Kate71

[alka]

Ho paura che l'unica alternativa a tua disposizione sia quella di realizzare una finestra personalizzata simile a quella mostrata dalla MessageDlg.

In generale, suggerisco di non utilizzare font "non standard" nelle applicazioni, poichè portano fuori dall'abitudinario e devono essere installate assieme all'applicazione per accertarsi che la macchina del cliente sia poi dotata del font in oggetto per visualizzare correttamente i testi.

In secondo luogo, la MessageDlg ti fornisce sempre una finestra con testi indipendenti dalla lingua del sistema operativo (a livello predefinito, in inglese); i testi sono definiti da costanti dichiarate nella unit Consts.pas.

Il metodo MessageBox di Application, invece, utilizza le finestre di dialogo comuni di Windows e quindi utilizza la lingua del sistema operativo.

Entrambe le soluzioni, la prima codificata interamente in Delphi, la seconda nativa del sistema operativo, operano usando il font standard di sistema (quello selezionato come da impostazioni del desktop).

Fermo restando il suggerimento di non utilizzare un font diverso, credo che il modo più rapido per personalizzare il font sia quello di creare una nuova finestra di dialogo da aggiungere al progetto, magari realizzata prendendo spunto da quella definita nella unit Dialogs.pas, la stessa utilizzata "segretamente" dalla MessageDlg; la classe della finestra si chiama TMessageForm.

Ciao!

[p87]

Esiste la funzione CreateMessageDialog che restituisce un oggetto TForm che fa al caso tuo:

var F:TForm;
begin
 F := CreateMessageDialog('Ciao a tutti',mtwarning,[mbok]);
 F.Font.Name := 'Comic Sans MS';
 F.Font.Style := [fsBold];
 F.ShowModal;
 F.Free;
end;

[kate71]

Grazie p87,
proverò a sperimentare questa
funzione quanto prima !!