|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
17.04.2015, 13:33
|
|||
|
|||
Переопределение кнопок мышки
Нужно переназначить кнопки мышки (три кнопки: правая, средняя и левая). Например: нажимаем левую - срабатывает, скажем, средняя, среднюю - правая, правую - левая... Тут варианты.
Делаю через хуки. Но столкнулся с проблемой. Зацикливание. Насколько понял, происходит так. Переназначаю кнопки: левая->средняя, средняя->левая. Нажимаю левую -> срабатывает обработчик левой кнопки -> генерируется/имитируется нажимание средней кнопки -> далее срабатывает обработчик средней кнопки (так как мы это сами сгенерировали выше)->генерируется/имитируется нажимание левой кнопки... и так по кругу. Не могу справиться с той проблемой. Вот кусок кода отвечающий за это. Тут для двух кнопок: левая и средняя. Код:
if (EventStrut.message = WM_LBUTTONDOWN) or (EventStrut.message = WM_LBUTTONDOWN) or
(EventStrut.message = WM_LBUTTONDBLCLK) then
begin
GetCursorPos(Pt);
case MouseKey[1] of
2:begin
EventStrut.message:=WM_NULL;
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MIDDLEDOWN, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MIDDLEUP, Pt.x, Pt.y, 0, 0);
end;
3:begin
EventStrut.message:=WM_NULL;
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP, Pt.x, Pt.y, 0, 0);
end;
end;//case
end;
if (EventStrut.message = WM_MBUTTONDOWN) or (EventStrut.message = WM_MBUTTONDOWN) or
(EventStrut.message = WM_MBUTTONDBLCLK) then
begin
GetCursorPos(Pt);
case MouseKey[2] of
1:begin
EventStrut.message:=WM_NULL;
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;
3:begin
EventStrut.message:=WM_NULL;
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP, Pt.x, Pt.y, 0, 0);
end;
end;//case
end;
Тут массив MouseKey содержит настройки переопределения: в первой ячейке номер назначеной кнопки для первой кнопки, во второй - номер назначеной кнопки для второй кнопки.... Спасибо. |
|
#3
17.04.2015, 14:00
|
|||
|
|||
|
Цитата:
SwapMouseButton изменяет на противоположное (инвертирует) или восстанавливает предназначение левых и правых кнопок мыши. А мне нужно немного не это. А средняя? а Если нужно правую на среднюю, а среднюю на левую... |
|
#4
17.04.2015, 16:21
|
||||
|
||||
|
Может там есть какой-нить идентификатор сообщения? Типа послал сообщение эмуляции, запомнил его идентификатор, и если на следующем круге пришло сообщение с таким-же идентификатором, то игнорировать его... Эт так, мысли в слух.
|
|
#6
17.04.2015, 16:35
|
|||
|
|||
|
Цитата:
Цитата:
Да пробовал так. Не работает. Оно все равно зацикливается. |
|
#7
17.04.2015, 16:55
|
|||
|
|||
|
Выходит, что
EventStrut.message:=WM_NULL; работает как то не так... "Сообщение WM_ NULL не выполняет никакого действия. Приложение отправляет сообщение WM_NULL, если оно желает посылать сообщение, которое окно получатель должно проигнорировать." отсюда брал |
|
#10
17.04.2015, 19:17
|
||||
|
||||
|
А у меня и переполнение вылезало минут через пяток с вашим кодом
 Есть предложение сначало глушить реакцию на мышь, может и так дажеКод:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
Handled := (msg.wParam = vk_lButton) or
(msg.wParam = vk_rButton) or
(msg.wParam = vk_mButton);
end; |
|
#12
21.04.2015, 12:12
|
|||
|
|||
|
Зацикливание поборол :-). Все как бы работает, но...
Меняю левую на среднюю, среднюю на леву. При нажатии на левую она работает как левая+средняя, а при нажатии на среднюю - средняя+левая. То есть система не полностью мной контролируется... Мож в другом месте чета напортачил?... Код:
function JournalProc(Code, wParam: Integer; var EventStrut: TEventMsg): Integer; stdcall;
var
Pt: TPoint;
begin
Result := CallNextHookEx(JHook, Code, wParam, Longint(@EventStrut));
if Code < 0 then Exit;
if Code = HC_SYSMODALON then Exit;
if Code = HC_ACTION then
begin
//===============================================WM_LBUTTON==========================
if (EventStrut.message = WM_LBUTTONDOWN) then
begin
GetCursorPos(Pt);
case MouseKey[1] of
2:begin
if ll=0 then
begin
EventStrut.message:=WM_NULL;
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MIDDLEDOWN, Pt.x, Pt.y, 0, 0);
ll:=1;
exit;
end else
begin
EventStrut.message:=WM_NULL;
ll:=0;
exit;
end;
end;
end;//case
end;
if (EventStrut.message = WM_LBUTTONUP) then
begin
GetCursorPos(Pt);
case MouseKey[1] of
2:begin
if rr=0 then
begin
EventStrut.message:=WM_NULL;
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MIDDLEUP, Pt.x, Pt.y, 0, 0);
rr:=1;
exit;
end else
begin
EventStrut.message:=WM_NULL;
rr:=0;
exit;
end;
end;
end;//case
end;
//======================================WM_MBUTTO===============================================================
if (EventStrut.message = WM_MBUTTONDOWN) then
begin
GetCursorPos(Pt);
case MouseKey[2] of
1:begin
if ll=0 then
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
ll:=1;
exit;
end else
begin
EventStrut.message:=WM_NULL;
ll:=0;
exit;
end;
end;
end;//case
end;
if (EventStrut.message = WM_MBUTTONUP) then
begin
GetCursorPos(Pt);
case MouseKey[2] of
1:begin
if rr=0 then
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
rr:=1;
exit;
end else
begin
EventStrut.message:=WM_NULL;
rr:=0;
exit;
end;
end;
end;//case
end;
end;
end;
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
Handled := False;
if (Msg.message = WM_CANCELJOURNAL) and FHookStarted then
JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, 0, 0);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
MyMouse: TPoint;
begin
if FHookStarted then
begin
ShowMessage('Mouse is already being Journaled, can not restart');//Mouse is already being Journaled, can not restart');
Exit;
end;
JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hInstance, 0);
{SetWindowsHookEx starts the Hook}
if JHook > 0 then
begin
FHookStarted := True;
end
else
ShowMessage('No Journal Hook availible');
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if FHookStarted then
UnhookWindowsHookEx(JHook);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
FHookStarted := False;
UnhookWindowsHookEx(JHook);
JHook := 0;
end;
|
Линейный вид
