Delphi 12: MessageDlg doesn't show icons

[jesu 0]

Hello This code:

 

  if MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin
    MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0, mbOk);
    Close;
  end;

shows icons in previous versions, but not in Delphi 12.

This is too obvious to be a bug. Am I missing something?

Thanks.

 

[PeterBelow 223]

4 hours ago, jesu said:

Hello This code:

 

  if MessageDlg('Welcome to my Delphi application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin
    MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0, mbOk);
    Close;
  end;

shows icons in previous versions, but not in Delphi 12.

This is too obvious to be a bug. Am I missing something?

Thanks.

 

This has come up before. Microsoft changed the UI guidelines and now recommends to not show an icon for confirmation dialogs. D12's vcl.dialogs unit was modied accordingly.

[DelphiUdIT 132]

  UseLatestCommonDialogs: Boolean = True;
  MsgDlgIcons: array[TMsgDlgType] of TMsgDlgIcon =
    (TMsgDlgIcon.mdiWarning, TMsgDlgIcon.mdiError, TMsgDlgIcon.mdiNone,
     TMsgDlgIcon.mdiNone, TMsgDlgIcon.mdiNone);

This is how they delete the standard dialogs (MessageBox) icons, except for Warning and Error.

Edited March 13 by DelphiUdIT

[jesu 0]

Any way to restore the previous behaviour?

That's what users have seen for many years and what they expect

[Lajos Juhász 240]

  MsgDlgIcons[TMsgDlgType.mtInformation]:=TMsgDlgIcon.mdiInformation;
  MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0, mbOk);

You have to System.UITypes into the uses.

[jesu 0]

That worked.

Thanks.