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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: 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;

{/codecitation}

Добавить комментарий