MessageDlg über den Default-Button automatisch schließen (MeinCustomDialog.Close; ?)

[RandomDD]

Für alle Interessierten, hier meine Lösung:

Delphi-Quellcode:

// Dialog erzeugen
MeinCustomMsgDialog := CreateMessageDialog(DlgText, mtInformation, [mbYes, mbNo], mbNo);
DialogDefaultButton := TButton(MeinCustomMsgDialog.ActiveControl);

Delphi-Quellcode:

// Default Button anklicken
if DialogDefaultButton.Handle <> 0 then
 SendMessage(DialogDefaultButton.Handle, BM_CLICK, 0, 0)
else
 DialogDefaultButton.Close;