| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

SergP ©   (2005-12-14 22:18:00) 


...

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, но этого не происходит. Почему?

---

SergP   (2005-12-15 07:40:00) [1]

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

---

SergP   (2005-12-14 23:14:00) [2]

> Rouse_ ©   (14.12.05 22:56) [1]
> Пардон, а где у тебя оконная процедура? Или ты думаешь что
> он сам производит выборку сообщений?


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

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

---

Rouse_   (2005-12-14 22:56:00) [3]

Пардон, а где у тебя оконная процедура? Или ты думаешь что он сам производит выборку сообщений?

---

Наверх