Текущий архив: 2003.07.28;
Скачать: CL | DM;

Вниз

WH_MOUSE Где я ошибся?   Найти похожие ветки 

← →
sosv   (2003-05-23 10:53) [0]

function MouseProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var AppWnd: HWND;
begin
if code = HC_ACTION then
begin
if (wParam = WM_LBUTTONUP) or (wParam = WM_NCLBUTTONUP) then
begin
AppWnd:=TMsg(Pointer(lParam)^).hwnd;
SendMessage(HWND_BROADCAST, WM_MYKEYHOOK, wParam, AppWnd);
end;
end;
Result:=CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;

---

← →
_ALEXey_ ©   (2003-05-23 11:03) [1]

Чтобы отменить стандартную обработку сообщения, по-моему так:

function MouseProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var AppWnd: HWND;
begin
if code = HC_ACTION then
begin
if (wParam = WM_LBUTTONUP) or (wParam = WM_NCLBUTTONUP) then
begin
AppWnd:=TMsg(Pointer(lParam)^).hwnd;
SendMessage(HWND_BROADCAST, WM_MYKEYHOOK, wParam, AppWnd);
Result:= 1;
end
else Result:=CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;
Result:=CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;



Если после посылки своего сообщения все же нужно чтобы система еще и сама обработала сообщение мыши, так:

function MouseProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var AppWnd: HWND;
begin
if code = HC_ACTION then
begin
if (wParam = WM_LBUTTONUP) or (wParam = WM_NCLBUTTONUP) then
begin
AppWnd:=TMsg(Pointer(lParam)^).hwnd;
SendMessage(HWND_BROADCAST, WM_MYKEYHOOK, wParam, AppWnd);
Result:=CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;
end;
Result:=CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;

---

← →
sosv   (2003-05-23 11:49) [2]

У меня раньше было вместо
AppWnd:=TMsg(Pointer(lParam)^).hwnd;
вот это
GetCursorPos(Pnt);
AppWnd:=WindowFromPoint( Pnt );

Работало, но с глюками.
Теперь вообще не работает.

---

← →
_ALEXey_ ©   (2003-05-24 08:24) [3]

Так надо определить окно, которое получит это сообщение ?!?!
Тогда нужна еще переменная типа указатель на MOUSEHOOKSTRUCT:

var MHS: ^MOUSEHOOKSTRUCT;
.......
begin
.......
MHS:= Pointer(lParam);
AppWnd:= MHS^.HWND;
.......
end;

В SDK это достаточно хорошо описано (ключевое слово: MouseProc)

---

← →
_ALEXey_ ©   (2003-05-24 08:32) [4]

Это почти тоже самое, но может поможет.

---

Страницы: 1 вся ветка

Текущий архив: 2003.07.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.009 c