Без окна

← →
DNT © (2002-11-30 17:44) [0]

Объясните плз, как в программе без формы обрабатывать сообщения виндов?
Спасибо!

← →
SPeller © (2002-11-30 17:49) [1]

Ну как, как... Делаешь невидимое окно и обрабатываешь OnMessage. По-дргомы ты никаких сообщений не получишь.

← →
DNT © (2002-11-30 18:06) [2]

Спасибо.
Только вот не получается.
Как мне например отловить WM_USER или WM_USER+1?
Примерчик бы небольшой, я разберусь.

Спасибо!

← →
Gandalf (2002-11-30 19:09) [3]

> Как мне например отловить WM_USER или WM_USER+1?

Как обычно, OnMessage.

← →
DNT © (2002-11-30 19:12) [4]

Подкинь плз кусочек кода. Мой не работает:

Function WndProc( var Msg: tMsg; var Rslt: Integer ): Boolean; begin if msg.message=wm_user then begin //... end; end; begin form:=NewForm(Applet,"Advanced Memory Manager v2.0"); form.OnMessage :=TOnMessage(MakeMethod(nil,@WndProc)); run(form); end.

← →
SPeller © (2002-12-01 04:01) [5]

Function WndProc( var Msg: tMsg; var Rslt: Integer ): Boolean; begin Result := False; if msg.message=wm_user then begin //... Result := True; // По необходимости, если больше не надо обрабатывать это сообщение. end;

← →
Gandalf (2002-12-01 11:23) [6]

> Function WndProc( var Msg: tMsg; var Rslt: Integer ): Boolean;

Это у меня с просони, или действительно Dummy нет? - так работать и не будет, а больше вылетать. См. ЧаВо.

> Это у меня с просони, или действительно Dummy нет? - так
> работать и не будет, а больше вылетать. См. ЧаВо.

Этот вопрос обязан быть в ФАКах на первом месте :-)

← →
Vladimir Kladov (2002-12-04 10:18) [8]

Вроде бы начальный вопрос был "без формы"?

while PeekMessage( Msg {:TMsg}, ..., pm_noremove ) do
if Msg.message = my_message then
...

или что-то в это роде. Зачем форма? А, некуда послать. Так это тоже просто: PostThreadMessage, форма не нужна, нужен id нити.

Без окна Найти похожие ветки