![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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 - всё работает. Почему так? Как сделать среднюю кнопку мыши горячей ? |