все события клавиш - напрямую окну с фокусом

[xrob]

вот, собственно, как это сделать?
надо чтобы при нажатии на стрелки в активное окно приходило сообщение,
а не переключался фокус на другое окно.

видел статью про "перехват" системных клавиш:

Создайте HandleMessages как метод формы и затем назначьте его Application.HandleMessages.

это только так можно решить или есть другие способы?

я где-то видел про какое-то свойство формы, от которого зависит, будет ли она обрабатывать сообщения сама или перешлет их кому надо, только не могу вспомнить как называется. может знает кто?

и тогда возникает вопрос, правильно ли я понимаю систему передачи сообщений:
допустим имеем такую иерархию окон:

Form1
---Panel1
------Button1 // фокус
------Button2
---Panel2
------Button3
------Button4

и в случае, например, нажатия клавиши, как пойдет сообщение,
напрямую в окно (windows -> Button1),
или пройдет по всем родительским, каждое из которых подумает, надо ли отправлять его дальше
(windows -> Form1 -> Panel1 -> Button1 ) ?


заранее спасибо.

[evg_m]

я где-то видел про какое-то свойство формы, от которого зависит, будет ли она обрабатывать сообщения сама или перешлет их кому надо, только не могу вспомнить как называется. может знает кто?

Tcustomform

Description

If KeyPreview is true, keyboard events occur on the form before they occur on the active control. (The active control is specified by the ActiveControl property.)

If KeyPreview is false, keyboard events occur only on the active control.

Navigation keys (Tab, BackTab, the arrow keys, and so on) are unaffected by KeyPreview because they do not generate keyboard events. Similarly, when a button has focus or when its Default property is true, the Enter key is unaffected by KeyPreview because it does not generate a keyboard events.

KeyPreview is false by default.

[xrob]

с большим трудом нашел решение проблемы!
надо обрабатывать не WM_KeyDown, а CN_KEYDOWN;
это сообщение успевает дойти до компонента раньше, чем его перехватит parent.

procedure MsgKeyDown(var Message:TWMKey);  message CN_KEYDOWN;

procedure TMyControl.MsgKeyDown(var Message:TWMKey);
begin
 case Message.CharCode of
  37 :trace('VK_LEFT');
  38 :trace('VK_UP');
  39 :trace('VK_RIGHT');
  40 :trace('VK_DOWN');
 end;
end;