VPF::Проблема с хуком на мышь - Форум программистов

Delist

Дата 1.7.2005, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 19.10.2004

Репутация: нет
Всего: нет

Есть хук на мышь, который отлавливает нажатие правой кнопки и что-то делает с активным окном(думаю это не важно). Всё работает нормально, пока указатель не попадает на границу экрана(там он принимае форму растягивающей стрелки). В этом случае ниакой реакции на нажатие правой кнопки у окна нет smile

.

Может кто знает, как с этим можно бороться? Заранее спасибо.

Quadr0

Дата 1.7.2005, 11:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:31

Delist

Дата 1.7.2005, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 19.10.2004

Репутация: нет
Всего: нет

Спасибо за идею, но это не совсем подошло. Если параметр code сравинвать с HCBT_MOVESIZE, то он реагирует только на левую мышь, при условии, что размер окна всё-таки изменили. А если сравнивать с HCBT_CLICKSKIPPED, то событие генерируется, сразу как только указатель наведён на границу окна.

Alex

Дата 3.7.2005, 00:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 6
Всего: 162

Delist, а хук стоит для приложения или для всей системы? Не мешало бы код посмотреть.

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Delist

Дата 3.7.2005, 09:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 19.10.2004

Репутация: нет
Всего: нет

Alex Ловушка установлена для всей системы.

Код обработки сообщения предлельно прост:

Код

procedure HookProc(code: Integer; wParam, lParam: Longint); stdcall;
var
  h: hwnd;
  //Mosestruct: PMouseHookStruct;
begin
CallNextHookEx(HookHandle, code, wParam, lParam);
if code=HC_ACTION then
  if wParam = WM_RBUTTONDOWN then begin
    h:=GetForegroundWindow;
    SetWindowText(h,'RightButtonDown(WH_MOUSE)');
    end;
end;

Код установки ловушки:

Код

function SetHook(State: Boolean): boolean; export; stdcall;
begin
Result:=false;
if State and (HookHandle=0) then begin
  HookHandle:=SetWindowsHookEx(WH_MOUSE, @HookProc, HInstance, 0);
  Result:=(HookHandle<>0);
  end
else if (State=false) and (HookHandle<>0) then begin
  UnhookWindowsHookEx(HookHandle);
  HookHandle:=0;
  Result:=true;
  end;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »