Главная страница
    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.011 c
14-10449
KaPaT
2003-07-18 13:29
2003.08.04
Кто-нибудь сталкиваля с этим бредом???


7-10465
Yura
2003-05-21 19:29
2003.08.04
Настройка порта


3-10087
Spawn
2003-07-13 12:38
2003.08.04
SQL


7-10482
qwerty2
2003-05-21 22:28
2003.08.04
Настройка DCOM программно через реестр или API


14-10350
Amid
2003-07-18 11:13
2003.08.04
Как зделать прогу типа WinRoute, WinGate





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский