Class TIDSDateEdit (unit IDSDtEd) |
Inherits from
TCustomEdit
constructor Create(Owner : TComponent);
- Update the internal date storage
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
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
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 :
blCodeChange : Boolean;
Internal variables
FDate : TDateTime;
Internal storage for new properties
FDateFormat : String;
constructor Create(Owner : TComponent);
Update the internal date storage
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
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
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 :
blCodeChange : Boolean;
Internal variables
FDate : TDateTime;
Internal storage for new properties
FDateFormat : String;