freepascal.ru

Как отловить системное событие типа wm_XXXX?

Следующий тестовый код у меня не работает, то есть при нажатии клавиш счётчик не увеличивается.

Код: Выделить всё

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;


Где/что/как исправить?

procedure wmkeydown(var Msg: TMessage); message wm_KeyDown;

А что - консольные проги умеют отлавливать GUI-события ? Возможно в Вашем (GUI) случае нужен перехватичик "tmseforn.OnKeyDown" (есть в инспекторе объектов).

There is tform.onsysevent and tform.onsyswindowevent, add mseguiintf to uses. Not recommended because it is platform dependent and can affect performance. Better to use tform.onkeydown as debi12345 writes.

WM_KEYDOWN просто для теста, чтобы посмотреть почему не работает тот код, который мне нужен.
В программе предполагаю использовать WM_DEVICECHANGE.

OK, please try "onsysevent".

create an integer field which holds the color index, possibly it is a fkCalculated or fkInternalCalc field.