Для тестирования новых версий программного обеспечения фирма Microsoft приглашает на работу полную дуру с кривыми руками, слепыми глазами и никогда не имевшую дело ни с какими компьютерами.
var
I: Integer;
M: TMessage;
...
with M dobeginMessage := ...
...
end;
for I := 0 to Pred(Screen.FormCount) dobegin
PostMessage(Forms[I].Handle, ...);
// Если надо и всем чилдам
Forms[I].Broadcast(M);
end;
Статья Как послать некое сообщение всем формам раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.