動作環境

C++ Builder XE4
RAD Studio 10.2 Tokyo Update 2 (追記: 2018/01/05)

TEditに対して、数値入力だけを許可するようにするには。

http://bcbjournal.org/forums/viewtopic.php?f=10&t=1113
においてrlebeauさんによる下記のコード例がある。

SetWindowLong(Edit1->Handle, GWL_STYLE, GetWindowLong(Edit1->Handle, GWL_STYLE) | ES_NUMERIC);

使ってみたが、ES_NUMERICがundefinedとなる。

https://msdn.microsoft.com/en-us/library/windows/desktop/bb775464(v=vs.85).aspx
を参考にES_NUMERICでなくES_NUMBERにするとビルドできた。

code

Unit1.cpp

//---------------------------------------------------------------------------

# include <vcl.h>
# pragma hdrstop

# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{

	SetWindowLong(Edit1->Handle, GWL_STYLE, GetWindowLong(Edit1->Handle, GWL_STYLE) | ES_NUMBER);

}
//---------------------------------------------------------------------------

実行例

数値以外を入力したときにエラーメッセージが表示される。
小数点も入力できない。

備考

この方法では「数値 + アルファベット」のみの入力許可はできないようだ。

https://qiita.com/7of9/items/1e51968f967b8ed70cfc
に記載のようなコードで入力後の内容から特殊文字を削除する方法を使うことになるだろうか。