Как послать некое сообщение всем формам



Автор: Nomadic

Для тестирования новых версий программного обеспечения фирма Microsoft приглашает на работу полную дуру с кривыми руками, слепыми глазами и никогда не имевшую дело ни с какими компьютерами.


var
I: Integer;
M: TMessage;
...
with M do
begin
Message := ...
...
end;
for I := 0 to Pred(Screen.FormCount) do
begin
PostMessage(Forms[I].Handle, ...);
// Если надо и всем чилдам
Forms[I].Broadcast(M);
end;


Далее: Как правильно завершить некое приложение »»