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

Почему HWND_BROADCAST сообщение приходит 2 раза?   Найти похожие ветки 

← →
Alex_C ©   (2007-04-09 11:45) [0]

Нужно сделать простенькое общение между програми. В проге приемнике делаю так:

procedure TForm1.AppMessage(var Msg:TMsg;var Handled:Boolean);
begin
   if Msg.Message = My_Message then
   begin
       Memo1.Text := "123435";
       Handled :=True;
   end
   else
       Handled:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMessage:=AppMessage;
   My_Message := RegisterWindowMessageA("My_Message");
end;

Затем в другой проге делаю вызов
   PostMessage(HWND_BROADCAST,My_Message,0,0);
Но почему-то в мемо 2 раза появляется строчка "12345"

---

← →
Сергей М. ©   (2007-04-09 11:50) [1]

Потому что сообщение поступает и гл.окну приложения и окну формы, ибо оба этих окна являются top-level-окнами.

---

Страницы: 1 вся ветка

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



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