Wie ShowMessage(Text) einen eigenen Caption geben ?

[EccoBravo]

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 ?

[Luckie]

Entweder mit einer Messagebox oder mit einem MessageDlg.

[tomsel]

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;

[freak4fun]

Hallo :hi:,
ich finde die MessageBox schöner. :)

Delphi-Quellcode:

MessageBox(0, 'Text', 'Caption', MB_OKCANCEL + MB_ICONQUESTION);

Kleiner Tip: Bei den GExperts ist ein Editor dabei. :)

MfG
freak

[EccoBravo]

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

E. B.