Как получить код последней нажатой клавиши ?

← →
Вован_ (2004-01-05 12:57) [0]

Уважаемые Мастера,
как получить код последней нажатой клавиши на визуальном компоненте, на котором нет обработчика события OnKeyPress/OnKeyDown ?

ЗЫ: С Новым годом! :)

← →
[lamer]Barmaglot © (2004-01-05 13:10) [1]

KeyPreview?

← →
YuRock © (2004-01-05 13:12) [2]

Сделай свою какую-нибудь WindowProc, присвой ей WindowProc компонента, а в ней отлавливай WM_KEYDOWN

← →
YuRock © (2004-01-05 13:13) [3]

Извините, оговорился: присвой ее свойству WindowProc компонента

Если вдруг данный компонент имеет хендл, то:

TApplicationEvents - OnMessage

procedure TCorrectionTool.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.hwnd = Memo1.Handle then
if msg.message = WM_KEYDOWN then Caption := "YES";
end;

Как получить код последней нажатой клавиши ? Найти похожие ветки