Class TsCustomNumberEdit (unit sToolsEdit)

Inherits from

TsCustomLinkEdit

Constructors


constructor Create( AOwner: TComponent );

TsnumberEdit


Functions

destructor Destroy;


procedure ButtonClick;


procedure Change;


procedure CloseUp;


procedure CreateParams(var Params: TCreateParams);


procedure DropDown;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


function IsValidChar(const Key: Char): Boolean;

Overwrite digit if left of decimal point

procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);


procedure SetFormatMask;


function Validate: Boolean;


procedure DeleteKey(Key: Word);


procedure DeleteSelection;


function GetAsCurrency: Currency;


function GetAsFloat: Double;


function GetAsInteger: Integer;


function GetValue: Double;


procedure OnAccept(Sender: TObject);


procedure OnCancel(Sender: TObject);


procedure SetAsCurrency(Value: Currency);


procedure SetAsFloat(Value: Double);


procedure SetAsInteger(Value: Integer);


procedure SetDecimals(Value: ShortInt);


procedure SetMaxValue(Value: Double);


procedure SetMinValue(Value: Double);


procedure SetValue(Value: Double);


procedure WMCut(var Message: TMessage);


procedure WMPaste(var Message: TMessage);


Properties

property AsCurrency : Currency


property AsFloat : Double


property AsInteger : Integer


property Decimals : ShortInt


property Increment : Double


property MaxValue : Double

default 1

property MinValue : Double


property Value : Double


Events

Variables

FCalcPop : TsPopupCalculator;


FDecimals : ShortInt;


FIncrement : Double;


FMaxValue : Double;


FMinValue : Double;


FormatMask : String;



Constructors


constructor Create( AOwner: TComponent );

TsnumberEdit


Functions


destructor Destroy;


procedure ButtonClick;


procedure Change;


procedure CloseUp;


procedure CreateParams(var Params: TCreateParams);


procedure DropDown;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


function IsValidChar(const Key: Char): Boolean;

Overwrite digit if left of decimal point


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);


procedure SetFormatMask;


function Validate: Boolean;


procedure DeleteKey(Key: Word);


procedure DeleteSelection;


function GetAsCurrency: Currency;


function GetAsFloat: Double;


function GetAsInteger: Integer;


function GetValue: Double;


procedure OnAccept(Sender: TObject);


procedure OnCancel(Sender: TObject);


procedure SetAsCurrency(Value: Currency);


procedure SetAsFloat(Value: Double);


procedure SetAsInteger(Value: Integer);


procedure SetDecimals(Value: ShortInt);


procedure SetMaxValue(Value: Double);


procedure SetMinValue(Value: Double);


procedure SetValue(Value: Double);


procedure WMCut(var Message: TMessage);


procedure WMPaste(var Message: TMessage);


Properties


property AsCurrency : Currency


property AsFloat : Double


property AsInteger : Integer


property Decimals : ShortInt


property Increment : Double


property MaxValue : Double

default 1


property MinValue : Double


property Value : Double


Events


Variables


FCalcPop : TsPopupCalculator;


FDecimals : ShortInt;


FIncrement : Double;


FMaxValue : Double;


FMinValue : Double;


FormatMask : String;