6

With delphi 10.2.2 firemonkey, under windows, when i do :

MessageDlg('Are you sure you want to undo the last operation ?', // const AMessage: string;
             TMsgDlgType.mtConfirmation, // const ADialogType: TMsgDlgType;
             [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbCancel], // const AButtons: TMsgDlgButtons;
             0, // const AHelpContext: THelpContext;
             TMsgDlgBtn.mbCancel, // const ADefaultButton: TMsgDlgBtn;
             procedure(const AResult: TModalResult)
             begin
               if AResult = mrYes then begin
               end;
             end); // const ACloseDialogProc: TInputCloseDialogProc);

then only a "OK" button is show in the popup dialog (no "cancel" nor "yes"). Is it normal or I miss something ?

zeus
  • 12,173
  • 9
  • 63
  • 184
  • 1
    You use _"incompatible"_ button set. For _"Yes"_ there is _"No"_, not _"Cancel"_ (see `TFMXDialogService.MessageDialog` method how checks the button combinations). – Victoria Jul 12 '18 at 13:22
  • thanks @Victoria this is the answer not a comment ;) – zeus Jul 12 '18 at 13:51

1 Answers1

7

It happens because Delphi checks valid button combinations and for the combination of Yes and Cancel there's no corresponding dialog box type on Windows platform. That you get just dialog with the OK button is because the structure passed to the Windows API function is zeroed at the beginning and the value of the uType parameter MB_OK is just 0.

The Windows implementation of this is inside the TFMXDialogService.MessageDialog method, within the FMX.Dialogs.Win module.

Victoria
  • 7,822
  • 2
  • 21
  • 44