![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Пытаюсь повесить гк, но на мое удивление - никак. Где-то неправ или нельзя?
Код:
RegisterHotKey(Handle, 90010, 0, VK_RBUTTON); |
#2
|
||||
|
||||
![]() Горячку можно повесить на клавишу а не на кнопку, на клаву а не на грызуна, тогда лучше пользовать перехват ловушкой, вот вариант отлова жима ПКМ, отжим - это WM_RBUTTONUP
Код:
var MouseHook: HHOOK; function LowLevelMouseProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall; begin Result:= CallNextHookEx(MouseHook, nCode, WParam, LParam); if WParam = WM_RBUTTONDOWN then... // она вдавилась, здесь что-то делаем end; procedure TForm1.FormCreate(Sender: TObject); begin MouseHook:= SetWindowsHookEx(14, @LowLevelMouseProc, HInstance, 0); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin UnhookWindowsHookEx(MouseHook); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 27.05.2017 в 10:25. |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
nixon232 (27.05.2017)
|