TCustomCurrSpinEditEx

type TCustomCurrSpinEditEx = class(specialize TSpinEditExBase<,>)

protected

  procedure EditKeyPress(); override;

  function SafeInc(); override;

  function SafeDec(); override;

  function SameValue(); override;

  function TextIsNumber(); override;

  function TryExtractCurrency();

  function UsedFormatSettings;

public

  constructor Create(); override;

  function ValueToStr(); override;

  procedure ResetFormatSettings;

  function StrToValue(); override;

  property CurrencyFormat: TSpinEditCurrencyFormat; [rw]

  property CurrencyString: string; [rw]

  property Decimals: TSpinEditCurrencyDecimals; [rw]

  property DecimalSeparator: char; [rw]

  property NegCurrencyFormat: TSpinEditNegCurrencyFormat; [rw]

  property ThousandSeparator: char; [rw]

end;

TCustomCurrSpinEditEx

TSpinEditExBase

TObject