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