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

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

Как отменить Close?

Страницы:   < 1 2 >

NewSer ©   (2008-04-12 08:38:00) 

Как остановить выполнение функции Close? Т.е. сделать так, чтобы если пользователь случайно нажал кнопку "Закрыть" (в заголовке формы [x]), появилось окно, в котором нажатие на "Нет" отменило бы закрытие окна.

---

NewSer   (2008-04-12 09:05:00) [21]

Спасибо, Danco!

А почему ты считаешь, что ...глупо???

---

Danco   (2008-04-12 08:58:00) [22]

> NewSer


> Как остановить выполнение функции Close?


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('Вы действительно хотите закрыть программу?', 'Заголовок окна',
    MB_DEFBUTTON1 + MB_ICONEXCLAMATION + MB_YESNO) = IDYES then
    begin
     CanClose:=True;
     Halt;
    end else
     CanClose:=False;
end;


...глупо, но работает =)))

---

Riply   (2008-04-12 08:44:00) [23]

> [0] NewSer   (12.04.08 08:38)
> Как остановить выполнение функции Close? Т.е. сделать так,
> чтобы если пользователь случайно нажал кнопку "Закрыть"

Сначала надо понять как определить, что кнопка была нажата именно "случайно" :)
Не знаю как кому, а меня раздражают программы,
спрашивающие "Вы действительно хотите меня закрыть ?"

---

Страницы:   < 1 2 >

Наверх