TEditの入力で数値のみの入力にするとBackSpaceが使えない対策

解決


me  2005-02-11 23:05:09  No: 13163  IP: 192.*.*.*

過去のTips集>Delphi Tips に TEditに数値しか入力できないようにする  というのがありますが、
これにBackSpaceも使えるようにするのはどのように判別すればよいのでしょうか。

編集 削除
Kashiken  2005-02-11 23:35:31  No: 13164  IP: 192.*.*.*

バックスペースの文字コード(#8)を追加してください。
if not (key in ['0'..'9',#8]) then Key := #0;

編集 削除
me  2005-02-12 00:43:27  No: 13165  IP: 192.*.*.*

無事に完成、即レスありがとうございました〜。

編集 削除