Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.29;
Скачать: 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 вся ветка

Текущий архив: 2007.04.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.045 c
2-1175848426
Alex8
2007-04-06 12:33
2007.04.29
Модуль System


15-1175180463
Руслан
2007-03-29 19:01
2007.04.29
Нормативный документ по ТБ


15-1175603363
cosinus
2007-04-03 16:29
2007.04.29
Формат .job файла (файл планировщика заданий Windows)


15-1174989221
zdm
2007-03-27 13:53
2007.04.29
шашки


9-1148897218
аматор
2006-05-29 14:06
2007.04.29
каким образом создать модель?