Показать сообщение отдельно
  #1  
Старый 17.04.2015, 13:33
yorri yorri вне форума
Прохожий
 
Регистрация: 17.04.2015
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Переопределение кнопок мышки

Нужно переназначить кнопки мышки (три кнопки: правая, средняя и левая). Например: нажимаем левую - срабатывает, скажем, средняя, среднюю - правая, правую - левая... Тут варианты.
Делаю через хуки.
Но столкнулся с проблемой. Зацикливание. Насколько понял, происходит так. Переназначаю кнопки: левая->средняя, средняя->левая.
Нажимаю левую -> срабатывает обработчик левой кнопки -> генерируется/имитируется нажимание средней кнопки -> далее срабатывает обработчик средней кнопки (так как мы это сами сгенерировали выше)->генерируется/имитируется нажимание левой кнопки... и так по кругу. Не могу справиться с той проблемой.

Вот кусок кода отвечающий за это. Тут для двух кнопок: левая и средняя.
Код:
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 содержит настройки переопределения: в первой ячейке номер назначеной кнопки для первой кнопки, во второй - номер назначеной кнопки для второй кнопки....

Спасибо.
Ответить с цитированием