Scheint ein Fehler in XE zu sein:
Delphi-Quellcode:
// aus Dialogs.pas in XE
Default := DlgBtn = DefaultButton;
// aus Vcl.Dialogs.pas in 10.2.3
if DlgBtn = DefaultButton
then
Default := True;
Jupp, ist nur ein halber Fehler, denn in CreateMessageDialog (eigene TForm) ist es so, wie im 10.2.3,
aber in der DoTaskMessageDlgPosHelp (TaskDialog-
API) ist/war es falsch.
Es läst sich also ganz leicht die fehlerhafte
API-Implementation deaktivieren.
Delphi-Quellcode:
// beim Programmstart
{$IF Declared(UseLatestCommonDialogs) and (CompilerVersion < 23)}
UseLatestCommonDialogs := False;
{$ENDIF}
Allerdings wollen wir einige der anderen neuen Dialoge haben (VerzeichnisAuswahl usw.) und da bei uns sowieso fast alles nochmal weggekapselt ist, habe ich da an den wichtigstens Stellen nun sowas eingebaut.
Delphi-Quellcode:
{$IF CompilerVersion < 23}
// XE-Bugfix für DefaultButtons https://www.delphipraxis.net/196905-messagedlg-mit-falschem-default.html
SaveULCD := UseLatestCommonDialogs;
try
if (DefaultBtn in DlgButtons) and (Word(DlgButtons - [DefaultBtn]) > Word([DefaultBtn])) then
UseLatestCommonDialogs := False; // nur, wenn Default nicht der "letzte" Button ist
{$IFEND}
// z.B. MessageDlg()
{$IF CompilerVersion < 23}
finally
UseLatestCommonDialogs := SaveULCD;
end;
{$IFEND}