Runtime Error 216 beim Schließen des Programs nur wenn Save/Opendialog ausgeführt

[AuronTLG]

Okay, so wie es aussieht ist mein Styling dafür verantwortlich...
Sobald das Programm mit TStyleManager.TrySetStyle/SetStyle gestylt wurde, rufen die TOpenDialogs den alten auf. Ohne Stil rufen sie den neuen auf.

[himitsu]

Delphi-Quellcode:

function TOpenDialog.DoExecute(Func: Pointer; ParentWnd: HWND): Bool;
...
begin
  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs and
     not (TStyleManager.IsCustomStyleActive and (shDialogs in TStyleManager.SystemHooks)) and
     IsNewCommonCtrl and (Template = nil) and IsAppThemed and
     not (Assigned(FOnIncludeItem) or Assigned(FOnClose) or Assigned(FOnShow)) then
  begin

    // über TFileDialogWrapper den TFileOpenDialog verwenden

    Exit;
  end;
  
  // das die alte API benutzen (eventuell noch durch NewStyleControls das OFN_EXPLORER deaktivert)

end;

Eventuell hilft shDialogs in TStyleManager.SystemHooks ??

[AuronTLG]

ShDialogs habe ich probiert und das hilft in der Tat, hat aber leider die Nebenwirkung, dass dann sämtliche Dialogs ungestyled sind, so z.B. auch ShowMessages etc.
Die zwei Möglichkeiten, die mir jetzt offen stehen sind, so wie es scheint, entweder das Verwenden von VCL.Styles.Utils oder manuelles Ersetzen aller openDialogs durch fileopendialogs.

[Harry Stahl]

Über das Problem bin ich auch gerade gestolpert, hätte ich in 10.4.2 nicht mehr mit gerechnet.

Was aber hilft ist das:

TStyleManager.SystemHooks := TStyleManager.SystemHooks - [shDialogs];

Dann sind zwar wie zuvor erwähnt die Dialoge nicht mehr gestylt, aber bieten dafür eine erweiterte Funktionalität.

Jedenfalls eine Error 216 Meldung am Programm-Ende ist gar nicht akzeptabel...

Hast Du das evtl. schon gemeldet bei Quality-Central?