Отследить нажатие на клаву или движение мышью

← →
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]

Спас!

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

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

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

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

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