Forum: Object-Pascal / Delphi-Language
Delphi
by Uwe Raabe,
31. Jan 2023
Bis du dann irgendwann den nächsten Button hinzufügen möchtest...
Forum: Object-Pascal / Delphi-Language
Delphi
by Uwe Raabe,
30. Jan 2023
So wäre es zumindest erweiterbar und bedeutet nur einen marginalen Mehraufwand beim Aufruf:
type
TMsgDlgBtnX = (mbEdit);
TMsgDlgButtonsX = set of TMsgDlgBtnX;
function MessageDlgX(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; ButtonsX: TMsgDlgButtonsX=; dummy:byte=0): Integer;
...
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Uwe Raabe,
30. Jan 2023
Wenn du die Deklaration mal genau betrachtest, dann ist das ein Set über einen Aufzählungstyp mit den beiden Elementen namens TMsgDlgBtn und mbEdit.