| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос [WinXP]
zalviko © (2002-10-27 14:44:00)Как заблокировать сочетание клавиш ALT+F4?
F1 (2002-10-28 11:05:00) [1]>if (Key = vk_f4)and(ssalt in shift) then
> begin
> key:=0;
> end;
Не работает эта вещь!!!(по крайней мере у меня :(
А что если обрабатывать OnCloseQuery и CanClose:=Flag;
А Flag=True только если выход был через вашу кнопку.
P.S. Только тогда и крестик [X] у окна не сработает :(
vidiv (2002-10-28 02:38:00) [2]Form1.KeyPreview:=True;
...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_f4)and(ssalt in shift) then
begin
key:=0;
//beep;
end;
end;
Cobalt (2002-10-28 00:19:00) [3]Кстати, интересный вопрос. Подозреваю, что необходимо находить таблицу ускорителей, и удалять её. Причем, не всю, а только часть. Или создавать новую, в неё копировать из старой часть, старую удалять.
Но вот как НАЙТИ необходимую таблицу?
| |
