Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];

Вниз

Закрытие окна   Найти похожие ветки 

 
VeB   (2006-06-26 16:11) [0]

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


 
Palladin ©   (2006-06-26 16:13) [1]

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


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

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


 
Palladin ©   (2006-06-26 16:25) [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:29) [4]

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


 
Palladin ©   (2006-06-26 16:42) [5]

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

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
15-1150490530
dhk
2006-06-17 00:42
2006.07.16
Переход от px к миллиметрам


1-1149138873
KygECHuK
2006-06-01 09:14
2006.07.16
Проблемы с SW_SYSCOMMAND


15-1150289277
Сергей М.
2006-06-14 16:47
2006.07.16
Взаимодействие дивайса под управлением Linux с Win-клиентом


2-1151653268
fast2
2006-06-30 11:41
2006.07.16
Как вывести в Label содерживое ячейки 2-го столбца...


9-1131701802
2Wish
2005-11-11 12:36
2006.07.16
Как убрать спрайт





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский