Стандартный диалог не всплывает

У меня есть форма с TSaveDialog. При вызове функции Execute она не появляется при запуске из IDE. Этоделает всплывающее окно при запуске в автономном режиме. Протестировав его, я обнаружил, что все диалоги TSave / TOpen не работают. Не работает означает, что выполнение возвращаетFalse без всплывающего окна (см. обновленный пример кода: всегда выскакивает сообщение «False» без предшествующего диалога).Другие диалоги (шрифт / цвет / и т. д.)делать работай.

procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenPictureDialog1.Execute
      then ShowMessage ('True')
      else ShowMessage ('False');
end;

При запуске без отладки диалоговое окно не появляется. Также не имеет значения, выбрана ли версия Release или Debug.

Видимо IDE делает что-то странное. В форме есть два компонента TSaveDialog, и оба отображают одинаковое поведение.

Есть идеи, что не так?

Обновление 1 использование Delphi XE в Windows 7. Другие проекты, использующие TSaveDialogs, работают нормально.

Обновление 2 Выяснилось, что оригинальный вопрос о TSaveDialog применяется ко всем диалогам TSave / TOpen. Вопрос был отредактирован, чтобы включить это знание.

Обновление 3 я нашел этоссылка аналогичной ошибки. Однако я проверил реестр, но не смог найти исполняемый файл, как уже упоминалось. И совет по изменению совместимости с XP не относится к imho, потому что TSaveDialog прекрасно работает вне IDE.

Ответы на вопрос(1)

Ваш ответ на вопрос