Hallo, mit regelmäßiger Penetranz-

Wie kann ich einem aus meinem Programm mit ShowMessage(Text) aufgerufenem MessageFenster einen eigenen Titel (Caption) geben?
Standardmäßig tragen die MessageFenster immer den Namen der Anwendung aus der sie aufgerufen werden.

Danke
E. B.




Habe mal wieder eine Lösung.
Hat jemand das Problem dazu ?

Entweder mit einer Messagebox oder mit einem MessageDlg.

zusammenfalten · markieren

Delphi-Quellcode:

function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;

DlgType:

mtWarning   Ein Meldungsfenster mit einem gelben Ausrufezeichen.
mtError    Ein Meldungsfenster mit einem roten Stoppschild.
mtInformation   Ein Meldungsfenster mit einem blauen "i".
mtConfirmation   Ein Meldungsfenster mit einem grünen Fragezeichen.
mtCustom   Ein Meldungsfenster ohne Bitmap. Als Fenstertitel wird der Name der Anwendung angezeigt.

Buttons:

mbYes    Eine Schaltfläche mit dem Text 'Ja'
mbNo    Eine Schaltfläche mit dem Text 'Nein'
mbOK    Eine Schaltfläche mit dem Text 'OK'
mbCancel   Eine Schaltfläche mit dem Text 'Abbrechen'
mbAbort    Eine Schaltfläche mit dem Text 'Abbruch'
mbRetry    Eine Schaltfläche mit dem Text 'Wiederholen'
mbIgnore   Eine Schaltfläche mit dem Text 'Ignorieren'
mbAll    Eine Schaltfläche mit dem Text 'Alles'
mbNoToAll   Eine Schaltfläche mit dem Text 'Nein zu allen'
mbYesToAll   Eine Schaltfläche mit dem Text 'Ja zu allen'
mbHelp    Eine Schaltfläche mit dem Text 'Hilfe'


Beispiel :

form1 := CreateMessageDialog('Dieses Programm taugt nix! Möchten Sie es deinstallieren?', mtError, [mbYes, mbNo, mbCancel]);
form1.Caption := 'Scheissprogramm';
if form1.Showmodal = mrYes then
  Uninstall;
form1.Free;

Hallo ,
ich finde die MessageBox schöner.

MessageBox(0, 'Text', 'Caption', MB_OKCANCEL + MB_ICONQUESTION); Kleiner Tip: Bei den GExperts ist ein Editor dabei.

MfG
freak

Danke das wars, Ihr werdet bald wieder mit einer neuen Frage belohnt.

E. B.