| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TSaveDialog запрос на замену файла? [D7, WinXP]
Михаил © (2009-01-24 13:18:00)Здравствуйте уважаемые мастера. Столкнулся с такой проблемой.
Есть такой код. Здесь 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'е??
Михаил (2009-01-24 16:10:00) [1]
> {RASkov}
Спасибо!!!
{RASkov} (2009-01-24 15:11:00) [2]Options + ofOverwritePrompt
| |
