MessagBox in anderer Schriftart

[Sharky]

Hai n0b0dy,

wie rufst Du das denn auf? Wenn ich es so mache kann ich den Font angeben:

Delphi-Quellcode:

procedure TForm1.btn_ShowDialogClick(Sender: TObject);
var
  myDialog : TForm;
begin
  myDialog := CreateMessageDialog('blubb',mtInformation,[mbYes,mbNo]);
  try
    myDialog.Font.Name := 'Script';
    myDialog.ShowModal;
  finally
    myDialog.Free;
  end;
end;