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

 // Здесь будет храниться номер, присвоенный системой

 // глобальному сообщению

 FSendNumberMessage: Cardinal;

protected

 // Так как номер сообщения станет известным только при

 // выполнении программы, объявить обработчик сообщения

 // с помощью директивы message нельзя. Приходится

 // перекрывать метод WndProc и обрабатывать сообщение в

 // нем. Можно было бы вместо WndProc перекрыть метод

 // DefaultHandler, но при этом зарегистрированное

 // сообщение обрабатывалось бы медленнее, потому что

 // сначала выполнялся бы метод WndProc, затем Dispatch

 // пытался бы найти подходящий обработчик среди методов

 // объекта, и лишь затем дело доходило бы до перекрытого

 // DefaultHandler. Но, с другой стороны, при перекрытии

 // WndProc обработка всех сообщений начинается со

 // сравнения их номера с FSendNumberMessage и вызова

 // унаследованного WndProc, если это другое сообщение.

 // А до DefaultHandler многие сообщения не дойдут, т.к.

 // будут обработаны ранее, и накладные расходы на

 // сравнение и вызов унаследованного метода будут меньше.

 procedure WndProc(var Msg: TMessage); override;

public

 constructor Create(AOwner: TComponent); override;

end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);

begin

 // Регистрируем глобальное сообщение с именем

 // WM_DelphiKingdom_APISample_SendNumber. Имя достаточно

 // длинное и осмысленное, поэтому можно надеяться, что

 // никакое другое приложение не зарегистрирует сообщение с

 // таким же именем. Регистрация сообщения выполняется до

 // вызова унаследованного конструктора, т.к. при

 // выполнении этого конструктора окно получит ряд

 // сообщений, и метод WndProc будет несколько раз вызван.

 // Если вызвать унаследованный конструктор до вызова

 // RegisterWindowMessage, то поле FSendNumberMessage

 // будет иметь присвоенное ему по умолчанию значение 0,

 // а это - код сообщения WM_NULL. Таким образом, если в

 // это время окно получит сообщение WM_NULL, оно будет

 // неправильно обработано. Конечно, вероятность получения

 // WM_NULL во время выполнения унаследованного

 // конструктора крайне мала, но лучше подстраховаться и

 // сделать так, чтобы поле FSendNumberMessage на момент

 // первого вызова WndProc уже имело правильное значение.

 FSendNumberMessage := RegisterWindowMessage('WM_DelphiKingdom_APISample_SendNumber');

 inherited;

 // Здесь мы меняем стиль окна поля ввода, добавляя в него

 // ES_NUMBER. Стиль ES_NUMBER запрещает полю ввода

 // вводить какие-либо символы, кроме цифр. Это уменьшает

 // риск ошибки ввода в тех случаях, когда требуется целое