|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.04.2009, 18:07 | #1 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Не включается Num Lock
Проблемы при включении Num Lock`а:
Пробовал и так: Код:
Код:
А мне обязательно нужно включить Num Lock при включении формы.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
30.04.2009, 19:00 | #2 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Переписал код на FormCreate и первый вариант теперь работает, но если Num был включен до запуска, то он выключается. Как сделать, что бы он при запуске формы был включен?
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
30.04.2009, 19:02 | #3 |
работа не волк....
Форумчанин
Регистрация: 09.06.2008
Сообщений: 337
|
с какого то сайта -
Код:
Цель, для которой требуются неправые средства, не есть неправая цель.
|
30.04.2009, 19:02 | #4 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Можете включить так:
Код:
Всегда рад помочь!
|
30.04.2009, 19:07 | #5 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Большое спасибо, Terran!
Правда, в FormCreate в самом начале нужно вызвать NumState, но это не важно. Спасибо.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
14.10.2014, 11:55 | #6 |
Новичок
Джуниор
Регистрация: 02.05.2011
Сообщений: 2
|
procedure TForm1.Button1Click(Sender: TObject);
var KeyState: TKeyboardState; begin GetKeyboardState(KeyState); if (KeyState[VK_NUMLOCK]=0) then begin // Имитировать релиз "NUMLOCK" Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or 0, 0); // Имитировать клавушу "NUMLOCK" Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); end else begin Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); end; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Контроль Scroll Lock | Altera | Общие вопросы Delphi | 14 | 08.11.2008 16:35 |
не получается изменить NUM,CAps,scroll Lock | Reds | Общие вопросы Delphi | 1 | 29.09.2008 15:31 |
не включается графический режим | engeneer | Паскаль, Turbo Pascal, PascalABC.NET | 27 | 23.07.2008 09:13 |
Заставить мигать Scroll Lock | snegok74 | Общие вопросы Delphi | 12 | 06.06.2008 14:02 |
Не включается комп | Viteef | Компьютерное железо | 2 | 28.01.2008 06:29 |