Следующий тестовый код у меня не работает, то есть при нажатии клавиш счётчик не увеличивается.
- Код: Выделить всё
type
tmainfo = class(tmainform)
dsp: tintegerdisp;
procedure wmkeydown(var Msg: TMessage); message wm_KeyDown;
end;
…
procedure tmainfo.wmkeydown(var Msg: TMessage);
begin
dsp.Value:=dsp.Value + 1;
end;
Где/что/как исправить?