Текущий архив: 2006.01.01;
Скачать: CL | DM;
Вниз
Не работает sendmessage. подскажите в чем дело... Найти похожие ветки
← →
SergP © (2005-12-14 22:18) [0]
...
const
TimeOut=10;
WM_EVENT_ON_WORK_END=WM_USER+2;
type TNEWorkEnd=procedure(Str:string;ErrorCode:integer);
type TLoadHttp = class(TThread)
public
FWorkEnd:TNEWorkEnd;
private
...
procedure Event_on_end_work(var M : TMessage); message WM_EVENT_ON_WORK_END;
protected
procedure Execute; override;
end;
implementation
procedure TLoadHttp.Event_on_end_work(var M : TMessage);
begin
if assigned(FWorkEnd) then FWorkEnd(String(M.LParam),M.WParam);
end;
procedure TLoadHttp.Execute;
...
// до этого места все нормально доходит.
SendMessage(Handle, WM_EVENT_ON_WORK_END, ErrorCode, Integer(str));
end;
А вот SendMessage по идее должно запустить процедуру, которая прописана в FWorkEnd, но этого не происходит. Почему?
← →
Rouse_ © (2005-12-14 22:56) [1]Пардон, а где у тебя оконная процедура? Или ты думаешь что он сам производит выборку сообщений?
← →
SergP © (2005-12-14 23:14) [2]
> Rouse_ © (14.12.05 22:56) [1]
> Пардон, а где у тебя оконная процедура? Или ты думаешь что
> он сам производит выборку сообщений?
вот блин. А я думал что сообщения может принимать все что имеет хендл...
Это отдельный юнит. Как тогда поступить чтобы форму ему не приделывать?
← →
SergP © (2005-12-15 07:40) [3]Хотелось сделать все в виде отдельного модуля. Но Уже переписал. Привязал к существующей форме...
Страницы: 1 вся ветка
Текущий архив: 2006.01.01;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.016 c
