Форум: "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.46 MB
Время: 0.008 c