Class TFnpNumericEdit (unit FnpNumericEdit) |
Inherits from
TCustomEdit
constructor Create(AOwner: TComponent);
- Public declarations
procedure CreateParams(var Params: TCreateParams);
procedure DoEnter;
Protected declarations
procedure DoExit;
Need this since AutoSelect has no effect for multi-line controls
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
"Eat" the keystroke here to prevent default handling
procedure DeleteKey(Key: Word);
procedure DeleteSelection;
Delete digit left of decimal point
function GetAsCurrency: Currency;
Overwrite digit if left of decimal point
function GetAsFloat: Double;
function GetAsInteger: Integer;
function GetValue: Double;
procedure InvalidEntry;
procedure SetAlignment(Value: TAlignment);
procedure SetAsCurrency(Value: Currency);
procedure SetAsFloat(Value: Double);
procedure SetAsInteger(Value: Integer);
procedure SetDecimals(Value: ShortInt);
procedure SetFormatMask;
procedure SetMaxValue(Value: Double);
procedure SetMinValue(Value: Double);
procedure SetValue(Value: Double);
procedure SetVersion(Value: String);
procedure WMCut(var Message: TMessage);
This property is read only!
procedure WMPaste(var Message: TMessage);
property Alignment : TAlignment
New properties
property AutoSelect :
Published declarations
property AutoSize :
property BorderStyle :
property Color :
property Ctl3D :
property Decimals : ShortInt
property DragCursor :
property DragMode :
property Enabled :
property Font :
property HideSelection :
property MaxLength :
property MaxValue : Double
property MinValue : Double
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ReadOnly :
property ShowHint :
property TabOrder :
property TabStop :
property Value : Double
property Version : String
property Visible :
property AsCurrency : Currency
property AsFloat : Double
property AsInteger : Integer
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnInvalidEntry : TNotifyEvent
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FAlignment : TAlignment;
Private declarations
FDecimals : ShortInt;
FInvalidEntry : TNotifyEvent;
FMaxValue : Double;
FMinValue : Double;
FormatMask : String;
FVersion : String;
constructor Create(AOwner: TComponent);
Public declarations
procedure CreateParams(var Params: TCreateParams);
procedure DoEnter;
Protected declarations
procedure DoExit;
Need this since AutoSelect has no effect for multi-line controls
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
"Eat" the keystroke here to prevent default handling
procedure DeleteKey(Key: Word);
procedure DeleteSelection;
Delete digit left of decimal point
function GetAsCurrency: Currency;
Overwrite digit if left of decimal point
function GetAsFloat: Double;
function GetAsInteger: Integer;
function GetValue: Double;
procedure InvalidEntry;
procedure SetAlignment(Value: TAlignment);
procedure SetAsCurrency(Value: Currency);
procedure SetAsFloat(Value: Double);
procedure SetAsInteger(Value: Integer);
procedure SetDecimals(Value: ShortInt);
procedure SetFormatMask;
procedure SetMaxValue(Value: Double);
procedure SetMinValue(Value: Double);
procedure SetValue(Value: Double);
procedure SetVersion(Value: String);
procedure WMCut(var Message: TMessage);
This property is read only!
procedure WMPaste(var Message: TMessage);
property Alignment : TAlignment
New properties
property AutoSelect :
Published declarations
property AutoSize :
property BorderStyle :
property Color :
property Ctl3D :
property Decimals : ShortInt
property DragCursor :
property DragMode :
property Enabled :
property Font :
property HideSelection :
property MaxLength :
property MaxValue : Double
property MinValue : Double
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ReadOnly :
property ShowHint :
property TabOrder :
property TabStop :
property Value : Double
property Version : String
property Visible :
property AsCurrency : Currency
property AsFloat : Double
property AsInteger : Integer
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnInvalidEntry : TNotifyEvent
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FAlignment : TAlignment;
Private declarations
FDecimals : ShortInt;
FInvalidEntry : TNotifyEvent;
FMaxValue : Double;
FMinValue : Double;
FormatMask : String;
FVersion : String;