So wäre es zumindest erweiterbar und bedeutet nur einen marginalen Mehraufwand beim Aufruf:
Delphi-Quellcode:
type
TMsgDlgBtnX = (mbEdit);
TMsgDlgButtonsX = set of TMsgDlgBtnX;
function MessageDlgX(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; ButtonsX: TMsgDlgButtonsX=[]; dummy:byte=0): Integer;
MessageDlgX('Hinweis! Blabla',mtWarning,[mbCancel],[mbEdit],1);
Das ist toll
Jetzt weiß ich, wie ich das deklarieren kann - mit Sets hab ich bisher kaum gearbeitet.
Hm.. aber für meine Lösung könnte ich dann ja auch einfach einen Schalter setzen (... ButtonsX: boolean=false; ...), wenn es sich nicht in das Buttons einbringen lässt.
Aber insgesamt danke für die Anregungen und für's mitdenken