![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте!
Хотел бы узнать как сделать горячую кнопку мыши, именно мыши! Программа будет свернута, и по нажатию гор. клавиши она будет появляться. Гор. клавишу делаю так: Код:
procedure WMHotKey(var Message:TMessage); message WM_HOTKEY; procedure TForm1.WMHotKey(var Message: TMessage); begin ShowMessage('Работает'); end; procedure TForm1.FormCreate(Sender: TObject); begin RegisterHotKey(Handle, 1, VK_MBUTTON, MOD_CONTROL); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnRegisterHotKey(Handle,1); end; А если поменять VK_MBUTTON к примеру на VK_DOWN - всё работает. Почему так? Как сделать среднюю кнопку мыши горячей ? |