Class TMoneyEdit (unit Mneyedit)

Inherits from

TCustomMemo

Constructors


constructor Create(AOwner: TComponent);



Functions

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


procedure KeyPress(var Key: char);


procedure CMEnter(var Message: TCMGotFocus);


function GetTextAsFloat: Extended;

BACKSPACE

procedure Reformat;


procedure SetDecimals(Value: integer);


procedure SetMaxLength(Value: integer);


procedure SetTextAsFloat( Value: Extended );


function StripCommas(AString: string): string;


Properties

property Alignment :


property BorderStyle :


property Color :


property Ctl3D :


property Decimals : integer


property DragCursor :


property DragMode :


property Enabled :


property Font :


property HideSelection :


property MaxLength : integer


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property TextAsFloat : Extended


property Visible :


Events

event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

DecimalPos : integer;


FDecimals : integer;


FMaxLength : integer;


FormatString : string;



Constructors


constructor Create(AOwner: TComponent);


Functions


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


procedure KeyPress(var Key: char);


procedure CMEnter(var Message: TCMGotFocus);


function GetTextAsFloat: Extended;

BACKSPACE


procedure Reformat;


procedure SetDecimals(Value: integer);


procedure SetMaxLength(Value: integer);


procedure SetTextAsFloat( Value: Extended );


function StripCommas(AString: string): string;


Properties


property Alignment :


property BorderStyle :


property Color :


property Ctl3D :


property Decimals : integer


property DragCursor :


property DragMode :


property Enabled :


property Font :


property HideSelection :


property MaxLength : integer


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property TextAsFloat : Extended


property Visible :


Events


event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


DecimalPos : integer;


FDecimals : integer;


FMaxLength : integer;


FormatString : string;