Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: 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 вся ветка

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
3-10086
axelrodm
2003-07-13 11:19
2003.08.04
Security INTERBASE


14-10354
Andryk
2003-07-18 17:51
2003.08.04
Ура наконец-то нашли способ боротся со спамом :о))


4-10516
Explorer
2003-06-02 10:14
2003.08.04
AnimateWindow


14-10379
OHP
2003-07-17 01:04
2003.08.04
Расказик...


1-10267
kasperlet
2003-07-21 16:30
2003.08.04
Помогите с отчетом