Fehler gefunden: Bei Verwendung von CreateMessageDialog werden keine Icons mehr angezeigt.
In der
VCL.Dialogs ist die Prüfung offenbar falsch
Delphi 11
function GetMsgIconResourceName: String;
begin
Result := '';
case DlgType of
mtWarning,
mtConfirmation:
Result := 'MSG_WARNING';
mtError:
Result := 'MSG_ERROR';
mtInformation:
Result := 'MSG_INFO';
end;
end;
Delphi 12
function GetMsgIconResourceName: String;
begin
Result := '';
case MsgDlgIcons[DlgType] of
TMsgDlgIcon.mdiWarning:
Result := 'MSG_WARNING';
TMsgDlgIcon.mdiError:
Result := 'MSG_ERROR';
TMsgDlgIcon.mdiInformation:
Result := 'MSG_INFO';
end;
end;