Не работает 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]
> Пардон, а где у тебя оконная процедура? Или ты думаешь что
> он сам производит выборку сообщений?

вот блин. А я думал что сообщения может принимать все что имеет хендл...

Это отдельный юнит. Как тогда поступить чтобы форму ему не приделывать?

Хотелось сделать все в виде отдельного модуля. Но Уже переписал. Привязал к существующей форме...

Не работает sendmessage. подскажите в чем дело... Найти похожие ветки