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}

Спасибо!!!

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