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

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

Закрытие окна [D7, XP]


VeB ©   (2006-06-26 16:11:00) 

Здравствуйте! Подскажите как запретить закрытие модального окна по клавише Alt-f4. У меня задача показать окно и пока пользователь не проделает необходимую последвовательность действий окно не закрывать. А так получается, что пользователь может прервать процесс.


Palladin   (2006-06-26 16:42:00) [1]

сапасыбо, но я уже... )

да и пользователь может в любой момент прервать процесс сняв задачу... :)


veb   (2006-06-26 16:29:00) [2]

to Palladin
 Гыниально! Спасибо! Пиво на какой емайл высылать?


Palladin   (2006-06-26 16:25:00) [3]

а... ну тогда ладно...

type
 TForm1 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
   Procedure WndProc(Var Msg:TMessage); Override;
 end;

...

Procedure TForm1.WndProc;
Begin
If (Msg.Msg=wm_syscommand) and (Msg.WParam=sc_close)
 Then Exit
 Else Inherited;
End;


veb   (2006-06-26 16:22:00) [4]

Не правильно писать, что это "не правильно"!
Могу привести примеры где это используется: возьмите любую не зарегистрированную программу и наблюдайте окно которое не закрывается в течении скажем 5 сек. (Total Commander,  The Bat и т.п.)
В моем случае это тест, которые нельзя прерывать, пока не достигнешь конца.


Palladin   (2006-06-26 16:13:00) [5]

Это не правильно. Всегда должна быть возможность отмены.


Наверх

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