Как послать некое сообщение всем формам
|
Для тестирования новых версий программного обеспечения фирма 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;
|
|
