Sobald man "TMsgDlgBtn.mball" in die anzuzeigenden Buttons mit aufnimmt (siehe Code unten), wird nur ein "OK" Button angezeigt, und die Abfrage läuft ins Leere. Ist wohl schon seit XE7 oder früher so, stelle ich gerade fest.
Ist das jemanden schon mal begegnet und hat einen WorkAround?
Delphi-Quellcode:
procedure TForm30.Button1Click(Sender: TObject);
begin
case Messagedlg ('Test', TMsgDlgType.mtWarning, [TMsgDlgBtn.mbYes,TMsgDlgBtn.mbNo,TMsgDlgBtn.mbCancel,TMsgDlgBtn.mball], 0) of
mrcancel: ShowMessage ('Cancel');
mrno: ShowMessage ('No');
mrall: ShowMessage ('All');
mrYes: ShowMessage ('Yes');
end;
end;