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]

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

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