Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.973 c