мышь вкл/выкл

← →
der (2002-10-23 16:32) [0]

Надо при form.create выключать мышь (ну или покрайней мере курсор), а при destroy -включать.
то что написано в ФАКЕ - не понятно

← →
Дуся (2002-10-23 16:56) [1]

что значит - выключать?..
чтоб пропадал курсор или чтоб не действовала?

← →
Song (2002-10-23 17:26) [2]

ShowCursor()

← →
der (2002-10-24 06:13) [3]

чтоб не действовала,
а потом чтобы задействовала (а то в ФАКе в статье про скрытые функции rundll есть как выключить мышь, а вот как ее включить после этой команды - ???)

← →
Song (2002-10-24 09:46) [4]

Никак.

← →
der (2002-10-24 13:26) [5]

Хм...
А варианты есть?
Мне например, надо, чтобы юзер не мог с моего окна переходить в любое другое. Я выключил всякие стандартные сочетния клавиш (ALT+F4, CTRL+ALT+DEL, и пр). осталось тока мышь заблокировать.

← →
Song (2002-10-24 13:32) [6]

не давайте ей выходить за пределы формы.

← →
Edgar (2002-10-24 13:41) [7]

Winexec("Rundll32.exe mouse,disable",0)

← →
Pat (2002-10-24 14:44) [8]

>Winexec("Rundll32.exe mouse,disable",0)
А обратно только ExitWindowsEx(), да и Win2k указана еще..

← →
der (2002-10-24 16:35) [9]

> не давайте ей выходить за пределы формы.

если обрабатывать OnMouseMove,то нифига не помогает: при медленном перемещении мыши - все ОК, но если дернуть руку порезче, то не срабатывает.

← →
Song (2002-10-24 16:57) [10]

ClipCursor()

← →
bogachev (2002-10-24 17:26) [11]

Включение и выключение устройств ввода/вывода из программы на Delphi. Это элементарно сделать при помощи API:
EnableHadwareInput(Enable:boolean): boolean;
Enable - требуемое состояние устройств ввода (True - включены, false - выключены). Если ввод заблокирован, то его можно разблокировать вручную - нажать Ctrl + Alt + Del, при появлении меню "Завершение работы программы" ввод разблокируется.

А вот еще интересный прикол.
Включение/выключение монитора программным способом.

Предупреждаю сразу! После того, как вы отключите монитор, просто так вы его уже не включите (хотя это может быть зависит от монитора, я, во всяком случае, не смог). Только после перезагрузки компьютера.

Отключить :
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Включить :
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
P.S Взято из FAQ"a и всё прекрасно работает.

← →
der (2002-10-25 06:28) [12]

> EnableHadwareInput(Enable:boolean): boolean;

Оно же выключает и мышь и клаву, а ввод с клавиатуры-то надо оставить!

← →
F1 (2002-10-25 15:56) [13]

А если обрабатывать у формы OnMouseLeave???
И не давать ей выходить???

← →
Геннадий (2002-10-26 21:31) [14]

И сделай свою форму StayTop...

← →
Pat (2002-10-27 00:14) [15]

>И не давать ей выходить???
Опять к этому и пришли... ClipCursor()

мышь вкл/выкл Найти похожие ветки