Class TIDSDateEdit (unit IDSDtEd)

Inherits from

TCustomEdit

Constructors


constructor Create(Owner : TComponent);

Update the internal date storage


Functions

procedure Change;

Overrides

procedure DoExit;

Initialise

procedure KeyPress(var chKey: Char);

Indicate error

procedure RecalcText;

Internal functions

Key is invalid if another separator or numeric key causing invalid date


procedure SetDate(dtNew : TDateTime);

Property access procedures

Update the text property with the formatted date


procedure SetDateFormat(sNewFormat : String);

Recalculate the formatted date

procedure SetText(sNewText : TCaption);

Update the display

Properties

property AutoSelect :

Inherited and unchanged properties

property AutoSize :


property BorderStyle :


property CharCase :


property Color :


property Ctl3D :


property DateFormat : String

The date format - supports any Windows date format

property DragCursor :


property DragMode :


property Enabled :


property Font :


property HideSelection :


property MaxLength :


property OEMConvert :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PasswordChar :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Text :

Modified inherited properties

property Visible :


property Date : TDateTime

Returns the current valid date

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 :


event OnStartDrag :


Variables

blCodeChange : Boolean;

Internal variables

FDate : TDateTime;

Internal storage for new properties

FDateFormat : String;



Constructors


constructor Create(Owner : TComponent);

Update the internal date storage


Functions


procedure Change;

Overrides


procedure DoExit;

Initialise


procedure KeyPress(var chKey: Char);

Indicate error


procedure RecalcText;

Internal functions

Key is invalid if another separator or numeric key causing invalid date


procedure SetDate(dtNew : TDateTime);

Property access procedures

Update the text property with the formatted date


procedure SetDateFormat(sNewFormat : String);

Recalculate the formatted date


procedure SetText(sNewText : TCaption);

Update the display


Properties


property AutoSelect :

Inherited and unchanged properties


property AutoSize :


property BorderStyle :


property CharCase :


property Color :


property Ctl3D :


property DateFormat : String

The date format - supports any Windows date format


property DragCursor :


property DragMode :


property Enabled :


property Font :


property HideSelection :


property MaxLength :


property OEMConvert :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PasswordChar :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Text :

Modified inherited properties


property Visible :


property Date : TDateTime

Returns the current valid date


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 :


event OnStartDrag :


Variables


blCodeChange : Boolean;

Internal variables


FDate : TDateTime;

Internal storage for new properties


FDateFormat : String;