C-Builderで数値(数字)以外を入力出来ない様にしたい。

C-Builder V5 で数値(数字)を入力すべきところで、実行時に文字等を入力すると、システムからエラーメッセージが表示されるので、これを防ぐ為にEditで入力時に数字以外をはじきたいのですが、可能でしょうか。

以前C-Builder V4で作った時は出来た様な気がしたのですが、どの様にやったか思い出せないでいます。

ネットではC-Builderのサンプルが見つからず、Delphiのサンプルでは昔の記憶と同じ処理を行っていましたが、これだと文字判定以前にEditの枠に既に文字が入ってしまっており、文字の排除が出来ませんでした。
どなたか数字以外をはじく方法ご存知の方、お教え下さい。

// Edit1->ImeMode = imDisable; // 初期化部分で実行

void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key<48 || Key>57)
{ Key = 0;
}
}

No.1 ベストアンサー 回答者： noname#15691 回答日時： 2005/08/17 17:52

KeyPressイベントでできます。

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(Key < '0' || Key > '9')
Key = '\0';
}

この回答へのお礼

有難う御座いました。KeyDown、KeyUp等色々やったつもりでしたがKeyPressを抜かしていた見たいです。

お礼日時：2005/08/17 18:33