Форум: "Основная";
Текущий архив: 2010.01.10;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c