Jetzt weiß ich auch wieder warum ich damals Integer genommen habe statt TMsgDlgBtn.
Ich erzeuge meinen Dialog selber und zeige ihn dann mit IrgendeinErgebnis := ShowModal; an
Delphi-Quellcode:
IrgendeinDialog := CreateMessageDialog(sText, aMsgDlgType, aMsgDlgBtn, aMsgDlgBtnDef);
// ...
Result := ShowModal;
Und ShowModal gibt Integer zurück.
Ich habe das jetzt einfach so gemacht
Delphi-Quellcode:
// Dialog anzeigen usw
// dann...
case MeinButtonTest of
mbYes:
iModalRes := ID_YES;
mbNo:
iModalRes := ID_NO;
mbCancel:
iModalRes := ID_CANCEL;
else
iModalRes := -1;
Musst du nicht verstehen, aber in meiner Prozedur stehen 2 Fälle: Dialog anzeigen oder nicht anhand einer Ini-Einstellung.
Wenn der Dialog nicht angezeigt wird, wird anhand des im Kopf übergebenen Default-Buttons entschieden.
Auf diese Art und Weise habe ich zentral an einer Stelle diese Auswertung und kann überall den Dialog aufrufen., Egal ob er angezeigt werden soll oder nicht, es wird immer richtig entschieden.