FC2ブログ

12月≪ 2019年01月 ≫02月

12345678910111213141516171819202122232425262728293031
--.--/--(--)

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
--:--  |  スポンサー広告  |  EDIT  |  Top↑
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 | 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。