О чём не пишут в книгах по Delphi

 // неотрицательное число.

 SetWindowLong(EditNumber.Handle, GWL_STYLE, GetWindowLong(EditNumber.Handle, GWL_STYLE) or ES_NUMBER);

end;

procedure TForm1.BtnBroadcastClick(Sender: TObject);

var

 Num: Integer;

 Recipients: DWORD;

begin

 try

  Num := StrToInt(EditNumber.Text);

  // Для широковещательной рассылки сообщения служит

  // функция BroadcastSystemMessage. В литературе обычно

  // советуют использовать более простую функцию

  // PostMessage, указывая в качестве адресата

  // HWND_BROADCAST. Однако PostMessage рассылает

  // сообщения только окнам верхнего уровня, не имеющим

  // владельца (в терминах системы). Но главная форма

  // приложения имеет владельца - это невидимое окно

  // приложения, реализуемое объектом TApplication.

  // Поэтому такое широковещательное сообщение главная

  // форма приложения не получит — его получит только

  // невидимое окно приложения (это сообщение можно

  // будет перехватить, назначив обработчик

  // Application.OnMessage - вручную или с помощью

  // компонента TApplicationEvents). Чтобы главная форма

  // тоже попала в список окон, получающих

  // широковещательное сообщение, используется функция

  // BroadcastSystemMessage.

  Recipients := BSM_APPLICATIONS;

  BroadcastSystemMessage(BSF_POSTMESSAGE, @Recipients, FSendNumberMessage, Num, 0);

 except

  on EConvertError do

  begin

   Application.MessageBox(

    'Введенное значение не является числом', 'Ошибка',

    MB_OK or MB_ICONSTOP);

  end;

 end;

end;

procedure TForm1.WndProc(var Msg: TMessage);

begin

 if Msg.Msg = FSendNumberMessage then

  LabelNumber.Caption := IntToStr(Msg.WParam)

 else inherited;

end;

end.

Как уже отмечалось ранее, для обработки глобального сообщения нельзя использовать методы с директивой message, т.к. номер сообщения на этапе компиляции еще не известен. Здесь для обработки глобального сообщения мы перекрываем метод WndProc. Соответственно, все оконные сообщения, в том числе и те, которые окно получает при создании, будет обрабатывать перекрытый метод WndProc. Это значит, что поле FSendNumberMessage, которое задействовано в этом методе, должно быть правильно инициализировано раньше, чем окно получит первое сообщение. Поэтому вызов функции RegisterWindowMessage выполнять, например, в обработчике события OnCreate формы уже поздно. Его необходимо выполнить в конструкторе формы, причем до того, как будет вызван унаследованный конструктор.

Примечание

Существует другой способ решения этой проблемы: метод WndProc должен проверять значение поля FSendNumberMessage, и, если оно равно нулю, сразу переходить к вызову унаследованного метода. В этом случае инициализировать FSendNumberMessage можно позже.