Скачать: CL | DM;

Отследить нажатие на клаву или движение мышью   Найти похожие ветки 

← →
KIR ©   (2003-04-15 11:50) [0]

Народ, как отследить нажатие кнопки клавиатуры или движение мыши во всем приложении?

---

← →
OlDemon ©   (2003-04-15 11:54) [1]

Что значит "во всем приложении"? Должен быть один обработчик для всех форм?

---

← →
Phantomouse ©   (2003-04-15 11:55) [2]

Использовать события MainForm.OnMouseMove и MainForm.OnKeyPress для перемещения курсора и нажатия на кнопку соответственно.

---

← →
Zz_   (2003-04-15 11:57) [3]

Application.OnMessage

---

← →
KIR ©   (2003-04-15 12:01) [4]

А как добраться до объекта Application?

---

← →
Zz_   (2003-04-15 12:03) [5]

procedure TfMain.FormCreate(Sender: TObject);
begin
Application.OnMessage := onMess;
end;

procedure TfMain.onMess(var Msg: TMsg; var Handled: Boolean);
begin
if(Msg.message=WM_MOUSEMOVE)then begin
Panel1.Caption := IntToStr(Msg.hwnd);
end;
Handled := False;
end;

---

← →
KIR ©   (2003-04-15 12:19) [6]

Спас!

---

← →
malkolinge ©   (2003-04-15 12:41) [7]

Еще хук можно повесить.

---

← →
KIR ©   (2003-04-15 17:49) [8]

А если хук, то как?

---

← →
Zz_   (2003-04-15 17:54) [9]

Насколько я помню, вроде бы Application.OnMessage это и есть
локальный хук.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c