VPF::TSaveDialog запрос замены файла - Форум программистов

mmm0905

Дата 24.1.2009, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.1.2009

Репутация: нет
Всего: нет

Здравствуйте уважаемые мастера. Столкнулся с такой проблемой.
Есть такой код. Здесь WorkBook это Книга Excel. Инииализацию не буду описывать.

Код


...
if SaveDialog1.Execute then
 WorkBook.SaveAs(SaveDialog1.FileName);
...

Естественно если в диалоге указали на существующий файл, то программа заменяет без предупреждения.
Как сделать, чтоб после нажатия на кнопку Сохранить выдавалось предупреждение, если такой файл уже существует, и заменить ли его?

Пробовал так:

Код


...
nach:
if SaveDialog1.Execute then
begin
 
 if FileExists(SaveDialog1.FileName) then
   if Application.MessageBox('Заменить?', 'Предупреждение', MB_YESNO) = IDYES then
 begin
   WorkBook.SaveAs(SaveDialog1.FileName)
   exit;
 end
 else
   goto nach;
 
 WorkBook.SaveAs(SaveDialog1.FileName)  
end;
...

Но в таком случае при выводе запроса диалог пропадает. Как сделать это так, как это организовано в Paint'е??

Rrader

Дата 24.1.2009, 14:49 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Поставь ему в опциях ofOverwritePrompt в True.

--------------------

Let's do this quickly!
Rest in peace, Vit!

mmm0905

Дата 24.1.2009, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.1.2009

Репутация: нет
Всего: нет

Спасибо большое!!! А я уже OnCanClose использовал

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »