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

[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 ??