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

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

Отловить клик мыши [D7, WinXP]

BUHALOSS ©   (2006-12-16 19:53:00) 

привет народ. Подскажите как отловить клик левой или правой кнопки мышки. Будет замечательно если приведёте пример чтобы я недалёкий разобрался что к чему. Мрей благодарности не будет предела в гранях разумного

---

ors_archangel   (2006-12-18 07:07:00) [1]

Правильно работать будет только если у тебя однаформа, лень писать дальше

---

ors_archangel   (2006-12-18 07:04:00) [2]

Следующий код ловит нажатия левой кнопки по форме, в том числе, если нажатие происходит по контролам:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 msgbox(int2str(x)+' '+int2str(y)); // выводим коориднаты для проверки
end;
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
 pt: TPoint;
begin
 if (msg.hwnd <> Handle) and ((msg.message = WM_LBUTTONUP) or (msg.message = WM_LBUTTONDOWN)) then begin
   pt.x := loword(msg.lParam);
   pt.y := hiword(msg.lParam);
   MapWindowPoints(msg.hwnd,handle, pt, 1);
   msg.hwnd := handle;
   msg.lParam := MakeLParam(pt.x,pt.y);
 end;
end;

Нажатие регистрируется в OnMouseUp/Down, причём координаты специально переводятся в координаты клиентской области формы (MapWindowPoints), если клик был сделан на контроле.

---

MetalFan   (2006-12-17 16:33:00) [3]

[2]
тогда можно обойтись KeyPreview имхо

---

MetalFan   (2006-12-17 16:33:00) [4]

з.ы. и вообще это в "начинающим"

---

BUHALOSS   (2006-12-16 19:59:00) [5]

Есть форма. В любой точке надо просто поймать событие что левая ил правая капа нажата. Знаю что через Hook нужен пример чтобы въехать в смысл. буду признателен если поможите

---

Орион   (2006-12-16 19:56:00) [6]

> [0] BUHALOSS ©   (16.12.06 19:53)

отловить клик где?
но мой телепатор подсказывает, что в системе, тогда Hook's в помощь.

---

Наверх