Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Alt+F4 


Hiks1   (2002-03-13 07:15) [0]

Так как в этом форуме наблюдается максимальная активность индивидумов задам этот вопрос здесь. В системном форуме не сработало.
Два дня бьюсь и не могу отключить комбинацию кнопок Альт+Ф4, (ума что ль нехватает), так, чтобы остальные комбинации работали. Переворошил кучу хелпов и ничего не понял...



panov   (2002-03-13 07:30) [1]

Поищи на сайте примеры глобальных HOOK на клавиатуру.
Если бы вопрос корректно задал, тебе бы давно ответили.
Например, так:
Как обработать/заблокировать нажатие комбинации кнопок Alt+F4 для всех программ Windows.



Hiks1   (2002-03-13 07:42) [2]

to panov
МНЕ НЕ НАДО ГЛОБАЛЬНЫХ!!!
Мне надо, конкретно, задавить в зародыше Alt+F4 в отдельно взятой программе. Глобальный HOOK я научился делать пока этот искал... но он мне не нужен.



gek   (2002-03-13 07:57) [3]


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=VK_F4) and (ssAlt in Shift) then
bool:=true
else
bool:=false
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if bool then
Action:=canone
end;

Попробуй закрой



Hiks1   (2002-03-13 08:31) [4]

To Gek
VK_F4! VK_F4! Как догадался? :-), я перелопатил штук 6 книжек, на Alt+Tab, Alt+Esc, etc. и даже на три магические клавиши описухи нашел. Этой нигде небыло!
Спасибо!



lipskiy   (2002-03-13 09:35) [5]


> В системном форуме не сработало.

В пору все форумы объединять в один. Ну или в два:
"Потрепаться" и "Поработать" :)
(Merlin"у на заметку)




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
1-69832           mio                   2002-04-10 17:03  2002.04.22  
Форма как дочернее окно


3-69759           AndrewK               2002-04-02 16:52  2002.04.22  
Как сформировать запрос...


3-69701           VAleksey              2002-03-27 11:11  2002.04.22  
Работа с ADOTable


6-69938           PL                    2002-02-01 20:51  2002.04.22  
traceroute


3-69664           ruslan_as             2002-04-02 18:08  2002.04.22  
ClienDataSet в InterBase