Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "KOL";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "KOL";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
14-10441
yurez
2003-07-17 17:59
2003.08.04
Граждане. помогите найти алетрер. горю :(


11-10148
tamerlan311
2002-11-14 15:23
2003.08.04
KOL_HHC_Unit


14-10393
Е-Моё имя
2003-07-16 14:22
2003.08.04
купить комп в Питере


14-10447
Е-Моё имя
2003-07-18 09:42
2003.08.04
Кто знает шведский язык? ;)))


1-10222
stimm
2003-07-20 22:00
2003.08.04
Вопрос о единицах возврщаемых FileSize-ом





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский