|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2007, 09:07 | #1 |
Пользователь
Регистрация: 28.03.2007
Сообщений: 67
|
Перехват события
Здравствуйте.
Как можно сделать чтобы при нажатии на клавиши Alt+F4 программа не закрывалась.
Проблема не в том могут ли машины думать, а в том - делают ли это люди?
B. F. Skinner |
22.05.2007, 09:57 | #2 |
Форумчанин
Регистрация: 30.03.2007
Сообщений: 124
|
вот и все:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if(key=115)and(ssAlt in Shift)then key:=0; end;
Тут без 100г не розберешся.....
Спасибо не нужно, а на весы слева кликнуть не помешает!!! |
22.05.2007, 11:31 | #3 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin CanClose := false; end;
Не надо ничего усложнять. Все достаточно тривиально.
|
22.05.2007, 13:53 | #4 |
Форумчанин
Регистрация: 12.05.2007
Сообщений: 373
|
поставь на форму TMainMenu, создай невидимый пункт этого меню и назначи ему активацию по Alt+F4, на нажатие этого пункта не пиши ничего.
Этот метод поможет токо от Alt+F4. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caNone// прога продолжает работать как и была Action:=caHide// прога продолжает работать, токо скрывается от пользователя Action:=caFree// прога закрывается Action:=caMinimize//хз end;
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!" |
22.05.2007, 18:09 | #5 |
Пользователь
Регистрация: 28.03.2007
Сообщений: 67
|
СПАСИБО!!!!!!!! Все сделал!!!!!!!!!!!!!!!!!!!!!
Проблема не в том могут ли машины думать, а в том - делают ли это люди?
B. F. Skinner |
23.05.2007, 12:21 | #6 |
Форумчанин
Регистрация: 30.03.2007
Сообщений: 124
|
NTLEGEND и Shuraken, в ваших примерах окно вообще не закроется и не тоько по Alt+F4
Тут без 100г не розберешся.....
Спасибо не нужно, а на весы слева кликнуть не помешает!!! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
События для DBGrid | Максим_Леонидович | Компоненты Delphi | 1 | 08.08.2008 22:43 |
Код для события. Delphi 7. | tlsol | Компоненты Delphi | 9 | 11.04.2008 15:02 |
События для DBGrid | Repz | БД в Delphi | 3 | 11.08.2007 09:37 |
Обработчик события... | Flash_ | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 12 | 12.03.2007 21:24 |
Назначение события | EA_Sports | Общие вопросы Delphi | 2 | 11.03.2007 00:45 |