Текущий архив: 2010.01.10;
Скачать: CL | DM;

Вниз

TSaveDialog запрос на замену файла?   Найти похожие ветки 

← →
Михаил   (2009-01-24 13:18) [0]

Здравствуйте уважаемые мастера. Столкнулся с такой проблемой.
Есть такой код. Здесь 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"е??

---

← →
{RASkov} ©   (2009-01-24 15:11) [1]

Options + ofOverwritePrompt

---

← →
Михаил   (2009-01-24 16:10) [2]

> {RASkov}


Спасибо!!!

---

Страницы: 1 вся ветка

Текущий архив: 2010.01.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c