TMsgDlgButtons erweitern?

[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);
...
  MessageDlgX('Hinweis! Blabla',mtWarning,[mbOK, mbCancel]);