О чём не пишут в книгах по 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 можно позже.