showmessage formatieren

[Sharky]

Zitat von ferby:

...geht das???

Hai ferby,

das einfachste ist es wenn Du dir dein eigens ShowMessage bauste.

Delphi-Quellcode:

procedure MessageFont (msg : String; FntName : String = 'Arial');
begin
  with CreateMessageDialog(msg,mtCustom,[mbOK]) do
  begin
    Font.Name := FntName;
    ShowModal;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageFont('blubb');  // Standardfont (Arial);
  MessageFont('meow','Script');
end;

"Nachteil": Auch der Font des Buttons wird in der gewählten Schriftart angezeigt.