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