Почему 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-окнами.

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