数値入力用コンポーネント

数値入力用のコンポーエンとについて説明・紹介します。

TNumberBoxコンポーネント

TNumberBoxコンポーネントは、RAD Studio 10.4.2からVCLコントロールとしてサポートされました。

• 整数、小数点、通貨値の入力サポート
• スピンボタン、編集ボックス、ドロップダウンリストなどの機能
• ユーザー入力の検証とフォーマット
• 値の制限設定
• プロンプトとヒントの設定
• 読み取り専用モードの設定

TNumberBoxコンポーネントは、ユーザー入力を簡素化し、エラーを減らすのに役立つ便利なコンポーネントです。

Vcl.NumberBox.TNumberBox - RAD Studio API Documentation

docwiki.embarcadero.com

VCL TNumberBoxコントロールの使用 - Support

docwiki.embarcadero.com

• YouTubeで、「TNumberBox」の詳細な説明動画がありました。
  山下修の「ワンポイント講座」8 – Delphi / C++Builderのコンポーネント「TNumberBox」の便利機能

主なプロパティ

以下、主なプロパティの一覧です。

各モードの設定方法

整数モード

整数の入力は、Modeプロパティの値を、nbmInteger か、nbmInt64 に設定します。

以下は、整数の入力モード時の基本的なプロパティの設定項目です。

小数点モード

小数点の入力は、Modeプロパティの値を、nbmFloat に設定します。少数点以下何桁表示するかは、Decimalプロパティで設定します。

通貨モード

通貨値は、Modeプロパティの値を、nbmCurrencyに設定します。CurrencyStringプロパティで、単位の文字を指定し、CurrencyFormatプロパティで表示位置を指定します。

通貨値の応用

筆者は、通貨モードを、”%”、”dot”、”DPI”等の表示に使用しています。

以下は、”%”表示の時の設定例です。

TNumberBoxの表示

TNumberBoxの整数、小数点、通貨モードの表示例です。一番下は、通貨モードを使用して”％”表示した例です。

AcceptExpressionsプロパティ

TNumberコンポーネントのAcceptExpressionsプロパティは、コンポーネントに割り当てられる値をExpressionエディタで編集可能かどうかを制御します。

AcceptExpressionsプロパティを有効にすると、ユーザは40+2のような式を入力でき、コントロールはそれを結果に置き換えます。さらに乗算、除算、加算、減算などの基本的な方程式のインライン計算をサポートしています（括弧の使用が可能です）。記号+と-の両方を二項演算と単項演算の両方として使用できるため、例えば、-23または+ 23と入力したり、55+23あるいは55-23と書くこともできますし、53++23や53–23のように組み合わせることもできますが、これは 53 – (-23) として評価されます。

スピンボタンの表示

スピンボタンのオプション（TNumberBoxコントロールのSpinButtonOptionsの Placementプロパティで設定）の変更が行えます。

Placementプロパティは、以下の値のどれかを設定します。

DisplayFormatプロパティ

数値フィールドの値をデータベース対応コントロールに表示する際の形式を決定します。

フィールドを表示する際の自動形式設定をオーバーライドするには、DisplayFormat プロパティを使用します。

DisplayFormat プロパティの値は、次の表に示す指定子を使用して数値データの形式を設定する文字列です。

書式文字列内の小数点より前にある左端の “0” と、書式文字列内の小数点より後の右端の “0” の位置によって、出力文字列に常に表示される桁数の範囲が決まります。

形式を適用する数値は常に、小数点より右側にある、数字を表すプレースホルダ（”0″ または “#”）の数分の、少数位に丸められます。 書式文字列に小数点が含まれていない場合、書式指定対象の値は、それに最も近い整数に丸められます。

書式を適用する数値の小数点記号より左側の桁数が、書式文字列内の “.” 文字の左側にある数字を表すプレースホルダの数より多い場合、最初の数字を表すプレースホルダの前に桁を追加して出力されます。

さまざまな書式文字列の結果を次の表に示します。

上記の表の設定を行った、TNumberBoxコンポーネントの表示例です。

一番下は、DisplayFormatプロパティに、「,##0″%”」、Valueプロパティに、「123456」を設定しています。DisplayFormatプロパティヲ使用しても、”％”の表示が可能です。また、”,”を設定する事で、3桁毎に”,”表示できます。

• DisplayFormatのヘルプです。

Data.DB.TNumericField.DisplayFormat - RAD Studio API Documentation

docwiki.embarcadero.com

HEX入力可能なTNumberEditコンポーネント

NumberEditコンポーネントは、HEX入力も可能な数値入力を行うための編集ボックスコントロールです。

ダウンロード：TNumberEdit

機能

NumberEditコンポーネントの主な機能は以下のとおりです。

• 実数の入力に対応
• 小数点以下の桁数の指定
• 3桁ごとのコンマを表示できる
• 最大値、最小値を指定できる
• 16進数の入力に対応(整数のみ)
• 整数部分の最大桁数を指定できる

対応するDelphi/C++Builderのバージョン

Delphi XE3 以降(VCLのみ)　32ビット/64ビットとありますが、ソースが公開されているので、C++Builderで使用可能です。

主なプロパティ

以下、主なプロパティです。

各モードの指定

Decimal（10進数）

10進数の入力は、NumberTypeプロパティにntDecimalを設定します。

HEX（16進数）

HEX（16進数）入力するには、NumberTypeプロパティにntHexを設定します。

桁数は、Figureプロパティで指定可能です。

小数点

小数点の入力の設定例です。Fixedプロパティをtrueに設定して、Figureプロパティで少数点以下の桁数を設定します。

最大値、最小値の設定

最大値、最小値の設定を行こうにするには、Limitプロパティと、LimitOptionsプロパティをtrueにする必要があります。

修正点

筆者は、以下のTextToValueメソッド内の、StrToInt(‘$’ + S);　を　StrToInt64(‘$’ + S);　に修正して使用しています。

function TNumberEdit.TextToValue(var S: string): Extended;

    begin
      if FValidMinus then
      begin
        if S[1] = '-' then
          Result := -StrToInt64('$' + Copy(S, 2, Length(S) - 1))
        else
          Result := StrToInt64('$' + S);
      end
      else
        Result := StrToInt64('$' + S);		// Result := StrToInt('$' + S); 2020/04/03
    end;

UpDownボタンの追加

筆者は、以前からみずさんが公開してくれていたTUpdownNumberEditコンポーネントを使用しています。ただ、現在、残念ながら公開されていないようです。TUpdownNumberEditコンポーネントは、TNumberEditコンポーネントに、UpDownボタンを追加したコンポーネントです。

TNumberEditコンポーネント＋TUｐDownコンポーネント（Win32にあります）で、同等の表示・動作が可能です。

TUｐDownコンポーネントの使い方

「Win32」の中に、TUｐDownコンポーネントはあります。Drag&Dropします。

Associateプロパティで、関連付けるコンポーネントを選択します。AlignButtonプロパティで、右側に表示するか、左側に表示するかを選択します。また、矢印キーをクリックした時の増減量は、Incrementプロパティで設定します。また、最大値、最小値の設定もしておきましょう。

これで、矢印キーで、TNumbertEditの値が増減できます。

• 主なプロパティ

Vcl.ComCtrls.TUpDown - RAD Studio API Documentation

docwiki.embarcadero.com