FMXのTNumberBoxでカンマ編集 (ID:151299)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 AAAAAさん 有難うございます。 TLabelを使うという発想が凄いです。 最終的にはAAAAAさんから提示頂いたコードの方が簡潔なので、使わせて頂きます。 因みに、自分でもトライはしてみました。未だ未だですけど。 { THmNumberEdit } const CST_MAX_DIGITS = 5; constructor THmNumberEdit.Create(AOwner: TComponent); begin inherited; FDecimalDigits := 0; FilterChar := '1234567890-,.'; Period := False; end; destructor THmNumberEdit.Destroy; begin inherited; end; // KeyDownイベント（やっぱりKeyUpの方が良さそうです） procedure THmNumberEdit.KeyDown(var AKey: Word; var AKeyChar: System.WideChar; AShift: TShiftState); var iPos: Integer; sDec: String; begin // ピリオド判定 iPos := Pos('.', Text); if iPos = 0 then Period := False else Period := True; // マイナス符号が押下された場合 if AKeyChar = '-' then begin AKeyChar := Char(0); SetValue(Text, True); end // ピリオドが押下された場合 else if AKeyChar = '.' then begin // 小数点以下が0桁の場合、入力は無かったことに if DecimalDigits = 0 then AKeyChar := Char(0) else // 小数点以下が指定されている場合 begin // 既に小数点が存在する場合は、入力は無かったことに if Period then AKeyChar := Char(0) else // ピリオドは最後に付加する begin Text := Text + AKeyChar; Period := True; SetValue(Text, False); end; end; end // 上記以外 else begin // 小数点が存在する場合、指定の小数点以下桁数を超えない様にする if Period then begin sDec := Copy(Text, Pos('.', Text)+1, DecimalDigits); if Length(sDec) >= DecimalDigits then AKeyChar := Char(0); end; inherited; SetValue(Text, False); end; // おまじない SelStart := Length(Text); end; // Valueプロパティ設定 procedure THmNumberEdit.SetValue(const AValue: Extended); begin try FValue := AValue; if DecimalDigits = 0 then SetIntegerFormatText else SetFloatFormatText; except FValue := 0; Text := ''; end; end; // Valueプロパティ設定（KeyDownなどのイベントから呼ばれる） procedure THmNumberEdit.SetValue(const AValue: String; MinusSign: Boolean); var sVal: String; begin if AValue = '' then begin Value := 0; Text := ''; end else begin try sVal := StringReplace(AValue, ',', '', [rfReplaceAll]); if AValue.EndsWith('.') then sVal := StringReplace(sVal, '.', '', [rfReplaceAll]); if MinusSign then Value := -1 * StrToFloat(sVal) else Value := StrToFloat(sVal); if DecimalDigits = 0 then SetIntegerFormatText else SetFloatFormatText; except Value := 0; end; end; end; // DecimalDigitsプロパティ設定 procedure THmNumberEdit.SetDecimalDigits(const ADecimalDigits: Integer); begin if ADecimalDigits > CST_MAX_DIGITS then FDecimalDigits := CST_MAX_DIGITS else FDecimalDigits := ADecimalDigits; end; // 整数フォーマットText設定 procedure THmNumberEdit.SetIntegerFormatText; begin //Text := FormatFloat('#,##0', Int(Value)); Text := FormatCurr('#,', Int(Value)); end; // 浮動小数点フォーマットText設定 procedure THmNumberEdit.SetFloatFormatText; var fVal: Currency; begin fVal := Currency(Value); if Text.EndsWith('.') then Text := FormatCurr('#,',　fVal) + '.' else Text := FormatCurr('#,.#####', fVal); end;