Как заблокировать Alt+F4 !!!

← →
kingsoft © (2006-11-27 19:24) [0]

Добрый вечер!!! Подскажите пожалуйста как сделать так, чтобы форма не реагировала на горячие клавиши windows в особенности на Alt+F4 и Alt+Tab !!!
Заранее спасибо!!!

← →
ProgRAMmer Dimonych © (2006-11-27 19:48) [1]

Alt-F4 - поставить свойство KeyPreview в True.
Alt-Tab - скорее всего, в 2k/XP не получится.

← →
Palladin © (2006-11-27 19:50) [2]

Привееееет!!!! Пусть реагиииирует!!! Тебе жалко чтоли??????

← →
TUser © (2006-11-27 20:08) [3]

Самый простой способ - кинуть ActionManager на форму и поставить там соотв. экшены с пустыми обработчиками. Лучше - самоме перехватывать соотв. виндовые сообщения.

← →
Gydvin © (2006-11-27 20:20) [4]

Кнопки (в нажатом состоянии) приклеить скотчем к корпусу клавы

← →
kingsoft © (2006-11-28 01:01) [5]

> ProgRAMmer Dimonych © (27.11.06 19:48) [1]
> Alt-F4 - поставить свойство KeyPreview в True.Alt-Tab -
> скорее всего, в 2k/XP не получится.

Не помогло!!! Форма всё равно закрывается! Есть ли еще предложения по моей проблеме!!!

← →
Германн © (2006-11-28 01:13) [6]

> Как заблокировать Alt+F4 !!! [D7, XP]
>
> kingsoft © (27.11.06 19:24)
>
> Добрый вечер!!! Подскажите пожалуйста как сделать так, чтобы
> форма не реагировала на горячие клавиши windows в особенности
> на Alt+F4 и Alt+Tab !!!
> Заранее спасибо!!!
>

Ещё один "компутерный клаб" пишет свою программу управления? :-)

← →
kingsoft © (2006-11-28 01:13) [7]

> Самый простой способ - кинуть ActionManager на форму и поставить
> там соотв. экшены с пустыми обработчиками. Лучше - самоме
> перехватывать соотв. виндовые сообщения.

TUser, Что то я не понял на счет ActionManager, нельзя ли немного по подробнее!!!

← →
kingsoft © (2006-11-28 01:15) [8]

> Ещё один "компутерный клаб" пишет свою программу управления?
> :-)

Мне это нужно в курсовом проекте!!! в программе тестирования!!! :)

← →
Германн © (2006-11-28 01:20) [9]

> Мне это нужно в курсовом проекте!!! в программе тестирования!
> !! :)
>

Поподробнее, плиз. Чего тестируем?

← →
kingsoft © (2006-11-28 01:30) [10]

> Германн © (28.11.06 01:20) [9]
> > Мне это нужно в курсовом проекте!!! в программе тестирования!
> > !! :)> Поподробнее, плиз. Чего тестируем?

Программа тестирования студентов по какому либо предмету!!! Нужно чтобы студент не пользовался ресурсами компа до жавершения тестирования!!! К примеру Alt+Tab можно спокойно и без палева, открыть Microsoft Word с ответами и смотреть!!! Ну а теперь, всё таки есть ли конкретные предложения по решению этой проблемы!!!

← →
Германн © (2006-11-28 01:45) [11]

> Программа тестирования студентов по какому либо предмету!
> !! Нужно чтобы студент не пользовался ресурсами компа до
> жавершения тестирования!!! К примеру Alt+Tab можно спокойно
> и без палева, открыть Microsoft Word с ответами и смотреть!
> !!

Той-ли дорогой идёте, товарисчь? А если тестируемый предложит вам всем "идти лесом", а сам тем временем полелезет качать "на халяву" из И-нета порнуху? :-)
Я вообщем-то о том, что если у вас есть доступный файл с ответами, то ничего вас не спасёт от "продвинутого пользователя"!

← →
kingsoft © (2006-11-28 02:11) [12]

> К примеру Alt+Tab можно спокойно и без палева, открыть
> Microsoft Word с ответами и смотреть!!!

Это я написал К ПРИМЕРУ!!!

> [12] kingsoft ©

первая ошибка в количестве воскл. и вопр. знаков, у тебя бешенство?
вторая ошибка, ты так и не написал, что пробовал, как пробовал, что искал, ты халявщик?

← →
Big Joe_ (2006-11-28 10:13) [14]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg("Really close this window?", mtConfirmation,
[mbOk, mbCancel], 0) = mrCancel then
CanClose := False;

end;

> Big Joe_ (28.11.2006 10:13:14) [14]

FormCloseQuery вызывается не только по Alt+F4

Для того, чтобы перехватить нажатие какой-то клавиши на клавиатуре можно использовать зарегистрированную "горячую клавишу" (HotKey). Эта программа пикает при нажатии "1".
Попробуй может можно с комбинацией

private procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; ... const MyHotKey = ord("1"); procedure TForm1.WMHotKey(var Msg: TWMHotKey); begin MessageBeep(0); end; procedure TForm1.FormCreate(Sender: TObject); begin RegisterHotKey(Form1.Handle, MyHotKey, 0, MyHotKey); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey(Form1.Handle, MyHotKey); end;

> kingsoft © (28.11.06 01:01) [5]
>
> > ProgRAMmer Dimonych © (27.11.06 19:48) [1]
> > Alt-F4 - поставить свойство KeyPreview в True.Alt-Tab
> -
> > скорее всего, в 2k/XP не получится.
>
>
> Не помогло!!! Форма всё равно закрывается! Есть ли еще предложения
> по моей проблеме!!!

А обработать событие OnKeyPress пробовал?

WM_SYSCOMMAND с SC_CLOSE обрабатывать надо.

Как заблокировать Alt+F4 !!! Найти похожие ветки