TMsgDlgButtons erweitern?

[SearchBot]

Hallo,

ich habe einen eigenen MessageDlg, der sich aber am originalen orientiert, weil ich ihn halt bislang an hunderten Stellen im Code verwendet hab - war einfacher, ein X an den Bezeichner zu setzen ...

Code:

function MessageDlgX(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; dummy:byte=0): Integer;

Nun brauche ich aber einen weiteren Button, den ich mbEdit nenne.
Wenn also ich also im Quelltext schreibe MessageDlgX('Hinweis! Blabla',mtWarning,[mbEdit,mbCancel],0) dann erzählt mir Delphi, daß mbEdit nicht zu TMsgDlgButtons gehört. Hm..ja,klar. Also muss ich es hinzufügen.

Im System.UITypes ist es so deklariert:

Delphi-Quellcode:

  TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
  TMsgDlgButtons = set of TMsgDlgBtn;

Klappt nicht:

Delphi-Quellcode:

uses System.UITypes; //unter anderem

// const mbEdit = 15;
// type TMsgDlgBtnExt = TMsgDlgBtn+(mbEdit); //nö..
type TMsgDlgButtons = set of (TMsgDlgBtn,mbEdit);

Das nimmt Delphi schon an, aber teilt mir dann in meiner MessageDlgX-Function Quelltext mit, daß es mbYes nicht mehr kennt...

Wie kann ich jetzt in meinem Programm diese Deklaration erweitern um mein mbEdit?
Danke schon mal