Стандартный диалог не всплывает
У меня есть форма с 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.