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

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

Как отследить нажатия левой и правой кнопки мыши [D7, WinXP]

MIGUR ©   (2004-07-15 01:34:00) 

Привет всем. Как отследить нажатия левой и правой кнопки мыши, кто знает помогите очень нужно

---

AlexZ   (2004-07-16 00:07:00) [1]

И ещё, можно обрабатывать в оконной функции сообщения:
WM_LbuttonDown
WM_RButtonDown

---

CHES   (2004-07-15 08:44:00) [2]

Кстати, если нужно отслеживать нажатия во всей системе, то hook надо реализовать в dll

---

KADAN   (2004-07-15 04:14:00) [3]

MIGUR, если тебе надо отследить клики по форме - то в событии OnMouseDown (формы) напиши вот это:
 if ssLeft in Shift then inc(CountLeft);
 if ssRight in Shift then inc(CountRight);
не забудь что, переменные CountLeft и CountRight должны быть глобальными и обнулены сначала.

---

tamroF   (2004-07-15 03:52:00) [4]

Удалено модератором

---

Palladin   (2004-07-15 03:22:00) [5]

Удалено модератором

---

Palladin   (2004-07-15 03:19:00) [6]

Удалено модератором

---

Piter   (2004-07-15 02:38:00) [7]

Удалено модератором
Примечание: Офтопик и модераторы сами разберутся

---

P.N.P.   (2004-07-15 02:08:00) [8]

Тогда вешаем хук...

var
 HookedAlready: Boolean;
 MyHook: HHook;
{***********  HOOK -start- ******************}

function LowLevelMouseProc (Code: integer; wParam: Word;lParam: Longint): Longint;stdcall;
begin
{WM_LBUTTONDOWN - левая кнопка, WM_RBUTTONDOWN - правая кнопка}
if (code = HC_ACTION)and(TMsg(Pointer(lParam)^).message = WM_LBUTTONDOWN) then
{- Do Something -}
 result := CallNextHookEx(MyHook, Code, wParam, lParam);
end;

procedure SetHook;
begin
 if HookedAlready then
   exit;
 MyHook := SetWindowsHookEx(WH_GETMESSAGE  , @LowLevelMouseProc , HInstance, GetCurrentThreadId);
 HookedAlready := True;
end;

procedure UnHookHook;
begin
if HookedAlready =true then
 UnHookWindowsHookEx(MyHook);
 HookedAlready := False;
end;

{***********  HOOK -end-  ******************}
procedure TForm1.FormCreate(Sender: TObject);
begin
SetHook;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnHookHook;
end;


---

MIGUR   (2004-07-15 02:02:00) [9]

>Что, одновременное нажатие левой с правой?!?

Нет, нужно сделать так чтобы в одной переменной  было кол-во нажатий левой кнопки, а в другой правой

---

Palladin   (2004-07-15 01:54:00) [10]

Надо внимательно следить за рукой...

---

P.N.P.   (2004-07-15 01:51:00) [11]

Что, одновременное нажатие левой с правой?!?

---

Наверх