jesu 0 Posted March 13 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. Share this post Link to post
PeterBelow 225 Posted March 13 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. Share this post Link to post
DelphiUdIT 132 Posted March 13 (edited) 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 Share this post Link to post
jesu 0 Posted March 15 Any way to restore the previous behaviour? That's what users have seen for many years and what they expect Share this post Link to post
Lajos Juhász 240 Posted March 15 MsgDlgIcons[TMsgDlgType.mtInformation]:=TMsgDlgIcon.mdiInformation; MessageDlg('Exiting the Delphi application.', mtInformation, [mbOk], 0, mbOk); You have to System.UITypes into the uses. Share this post Link to post