| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

WH_MOUSE Где я ошибся?

sosv ©   (2003-05-23 10:53:00) 

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-24 08:32:00) [1]

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

---

_ALEXey_   (2003-05-24 08:24:00) [2]

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

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

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

---

sosv   (2003-05-23 11:49:00) [3]

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

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

---

_ALEXey_   (2003-05-23 11:03:00) [4]

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

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;

---

Наверх