Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать, что бы при закрытии формы вы давалось сообщение


sachem ©   (2004-05-18 14:22:00) 

Обрабатываю событие FormCloseQuery:

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   AnsiString text;
   text="Вы уверены, что хотите выйти из программы?";
   if (Application->MessageBox(text.c_str(),
             "Внимание",
             MB_YESNO | MB_ICONQUESTION) !=IDYES)
       return;

}

Выдает сообщение, но закрывает в любом случае, и на Да и на НЕТ
Что не так?


sachem   (2004-05-18 14:44:00) [1]

Спасибо. Въехал


clickmaker   (2004-05-18 14:37:00) [2]

а CanClose на что?


Наверх

Титульная страница Поиск, карта сайта Написать письмо