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

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

Недавно добавленные исходники
• 3D Designer 81 • Sik Screen Capture 65 • Patch Maker 62 • Айболит (remote control) 72 • ListBox Drag & Drop 62 • Доска для игры Реверси 896 • Графические эффекты 70 • Рисование по маске 50 • Перетаскивание изображений 57 • Canvas Drawing 53 • Рисование Луны 134 • Поворот изображения 42 • Рисование стержней 38 • Paint on Shape 33 • Генератор кроссвордов 49 • Головоломка Paletto 50 • Теорема Монжа об окружностях 98 • Пазл Numbrix 46 • Заборы и коммивояжеры 67 • Игра HIP 51 • Игра Go (Го) 45 • Симулятор лифта 45 • Программа укладки плитки 47 • Генератор лабиринта 90 • Проверка числового ввода 38 • HEX View 93 • Физический маятник 96 • Задача коммивояжера 122 • Автомобильная пробка 46 • Квадратные сетки из слов 40