showmessage formatieren

[ferby]

Hallo,

kann ich irgendwie einen text mit showmessage formatieren?

Ich möchte gerne, dass die schrift auf arial gestellt wird, aber nur bei den pop-up fenster das durch

showmessage('text');

entsteht,

geht das???


ferby

[malo]

Mit der ShowMessage-Funktion geht es NICHT. Ich weiß zwar nicht, ob es mit der MessageBox o.Ä. geht, aber eine Möglichkeit wär, einfach eine MessageBox nachzubauen (Form drauf, TLabel(oder TStaticText) und Button drauf). In der Funktion zum Aufrufen erzeugst du eine Instanz deines neuen Forms. Fertig

[Speedmaster]

Wenn du eine Prof. Version von Delphi hast kannst du den Quelltext der Messagebox veränder, oder besser eine eigene Funktion erstellen!

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

[ferby]

Hallo,

danke!

[engel]

Zitat von Sharky:

Zitat von ferby:

...geht das???

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

2. Nachteil: Die Fenstergröße passt sich nicht an. Gibt's dafür vielleicht auch eine Lösung?