Скачать: CL | DM;

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

← →
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 нет? - так работать и не будет, а больше вылетать. См. ЧаВо.

---

← →
SPeller ©   (2002-12-01 13:14) [7]

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

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

---

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

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c