Wie ShowMessage(Text) einen eigenen Caption geben ?

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