freepascal.ru

Добавлено: **05.12.2013 13:01:03**

Как отловить системное событие типа 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;

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

Добавлено: **05.12.2013 16:32:42**

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

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

Добавлено: **05.12.2013 20:02:29**

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.

Добавлено: **05.12.2013 22:46:48**

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

Добавлено: **05.12.2013 23:16:25**

OK, please try "onsysevent".

Добавлено: **22.01.2014 13:00:29**

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

freepascal.ru

Как отловить системное событие? [решено]

Как отловить системное событие? [решено]

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

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

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

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

Re: Как отловить системное событие? [решено]