TMsgDlgButtons erweitern?

[SearchBot]

Zitat von Uwe Raabe:

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