FC2ブログ

10月≪ 2018年11月 ≫12月

123456789101112131415161718192021222324252627282930
2018.02/08(Thu)

Delphiで数値のみの入力

Delphiでエディットボックスに数値のみを入力させたい。

というわけで
procedure TForm2.LabeledEdit4KeyPress(Sender: TObject; var Key: Char);
begin
if (not CharInSet(Key, [#8, '0'.. '9'])) then
Key := #0;
end;
こんなコードを流用。

しかし、LabelEditのプロパティを見ていたら、Numbersonly という項目ができており、
true/falseが選択できた。コードを書かなくても、これをチェックすれば良いだけだった模様。

ただ、別な記事によればNumbersonlyだとマイナスや小数点に対応していないとのこと。
それは上記のコードでもおなじでタブキーと0から9までにしか対応していない。
でも、羅列すれば良いだけだから、上記コードの方が汎用性があるのかもしれない。
スポンサーサイト
00:07  |  Delphi  |  TB(0)  |  CM(0)  |  EDIT  |  Top↑

コメントを投稿する

URL
コメント
パスワード  編集・削除するのに必要
非公開  管理者だけにコメントを表示  (非公開コメント投稿可能)
 

▲PageTop

この記事のトラックバックURL

→http://derakun.blog74.fc2.com/tb.php/907-698f6f77
この記事にトラックバックする(FC2ブログユーザー)

この記事へのトラックバック

▲PageTop

 | BLOGTOP |