Отправление сообщения сразу всем элементам управления формы

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Отправление сообщения сразу всем элементам управления формы

Вы слишком много работаете за компьютером, если:
- Вспоминаете про антивирусные пакеты всякий раз, когда открываете консервы, книги, двери
- Вспоминаете про архивирование, когда:
- идете с тяжелыми сумками домой
- несете свою жену на руках
- Вспоминаете операцию "удалить", когда: - видите тещу
- инспектора ГИБДД
- Подсознательно ненавидите женщин с именами
- Ася
- Клава
- Вспоминаете про разархивирование, когда получаете зарплату.
Вы слишком мало работаете за компьютером, если:
- позволяете себе заниматься сексом без предохранения, даже с надежным партнером
- позволяете себе заниматься сексом
- позволяете себе.

Можно использовать

Screen.Forms[i].BroadCast(msg);

где [i] - индекс той формы, которой Вы хотите переслать сообщение. BroadCast работает со всеми компонентами, потомками TWinControls и отправляет сообщение всем дочерним компонентам из массива Controls. Если один из дочерних компонентов обрабатывает это сообщение и устанавливает Msg.Result в ненулевое значение - дальнейшая рассылка сообщения останавливается.