Wenn du mal diese Komponente auf die Form pappst und dort befüllst, dann bemerkst du ....
nja, also standardmäßig werden die CustomButtons einfach ab 100 gezählt und kommen somit den Standard-ModalResult-Buttons/Konstanten nicht in die Quere.
PS: Ich hab bei uns in der Firma das auch in eine Funktion gekapselt,
aber dort kann man die Buttons als StringArray oder kommaseparierten String reingeben,
also ['Yes', 'No'] oder 'Yes,No', bzw. 'Yes=Irgendwas,No=Anderes'.
Das Erste ist der Button mit oder ohne "mr" und gefolgt optional eine alternative Caption.
Aber man könnte es auch umdrehen, also 'Irgendwas,Anderes' oder 'Irgendwas=Yes,Anderes=105' (wenn nichts angegeben ab 100 durchnummerieren)
In
Vcl.Consts gibt es die Captions der Default-Buttons. (SYesButton usw.)
For ModalResult gibt es nichts, und leider kann man in
Vcl.Buttons mal auch wieder nicht auf gewisse Konstanten zugreifen. (BitBtnResNames, BitBtnCaptions und BitBtnModalResults)
Das ModalResult des Dialogs setzt man eigentlich nicht. (außer während des Anzeigens, zum manuellen Schließen des Dialogs)
Es kann auch Probleme geben.
Du hast Glück, dass oftmals (leider nicht bei allen Komponenten) das ModalResult der Form beim Start des ShowModal auf 0 gesetzt wird. (ich war mal auf eine Komponente gestoßen, wo es am Ende gesetzt wurde)
Denn dieses Form.ModalResult wird zum Abbruch des ShowModal benutzt. (wenn <>0 dann verlasse die Schleife)
* erstmal blöd, weil wenn man es nach oder vor dem Anzeigen setzt, dann geht beim nächsten Anzeigen der Dialog sofort wieder zu
* und außerdem kann man den letzten ModalResult dann "nach" dem Anzeigen nicht nochmals auslesen