Button.Captions von Meldungsfenstern selbst aussuchen

[TimerTim]

Hallo,

wie kann man ein Meldungsfenster erzeugen, wo man sich den Text der Buttons aussuchen kann?
Also zum Beispiel so etwas:


----------------------------
|..............................|X|
|..............................|-|
|....Wie geht es dir?...|
|.................................|
|.................................|
|.....Gut.....Schlecht.....|
|.................................|
|.................................|
----------------------------

[DeddyH]

Am Einfachsten, indem Du ein eigenes Formular für Deine Meldung erzeugst.

[bitsetter]

Hi,

vor kurzem hatten wir hier schon mal sowas ähnliches.Custom MessageDlg

[Luckie]

Oder so: http://www.michael-puff.de/Developer...edMsgBox.shtml

[TimerTim]

Kann man das auch so machen, das nur ein Button auf dem Meldungsfenster ist? (Für Scherzprogramme, der Computer fragt einen zum Beispiel: "Wollen sie nun auf ihren Computer eine ANSI-Bombe installieren?" und man kann nur mit "Ja" antworten.

[bitsetter]

MessageDlg('Wollen sie nun Ihren Computer ausschalten?', mtConfirmation , [mbYes], 0);

[TimerTim]

So war das nicht gemeint.
Es soll wieder ein beliebiger Text angezeigt werden, zb. der Computer fragt dach der Sache mit der ANSI-Bombe noch: "Dabei wird der gesamte Inhalt ihres Computer gelöscht, wussten sie das?" und man kann jetzt nur mit "Natürlich" antworten (das hört sich besser an als einfach nur "Ja").

[Bernhard Geyer]

Ja man kann.

Wie? Einfach die geposteten Links durchlesen und das dort gesagte Anwenden.

[bitsetter]

Ansonsten so:

Delphi-Quellcode:

  with CreateMessageDialog('Dieses Programm beenden?', mtConfirmation, [mbYes]) do
  try
    Caption := 'Nachfrage';
    (FindComponent('Yes') as TButton).Caption:= 'Natürlich';
    ShowModal;
  finally
    Free;
  end;