| Class TDateEdit (unit Dateedit) |
TEdit
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
procedure CreateParams(var Params:TCreateParams);
destructor Destroy;
procedure DblClick;
procedure DoEnter;
procedure DoExit;
function GetDate:TDateTime;
procedure KeyPress(var Key:Char);
procedure MouseUp(Button:TMouseButton; ShiftState:TShiftState; X,Y:Integer);
procedure SetDate(dtArg:TDateTime);
procedure WMSize(var Message:TWMSize);
procedure SelectErrorToken;
procedure SelectToken;
procedure SetSeperators;
procedure SetToken;| Properties |
property Date : TDateTime| Events |
event OnDateChange : TNotifyEvent| Variables |
FButton : TDateButton;
FDate : TDateTime;
FOnDateChange : TNotifyEvent;
hBitmap : HBitmap;
nSep1 : Integer;
nSep2 : Integer;
sDateFmt : String[20];
sSep : Char;
Token : Integer;| Constructors |
constructor Create(AOwner:TComponent);--- TDateEdit ---
| Functions |
procedure CreateParams(var Params:TCreateParams);
destructor Destroy;
procedure DblClick;
procedure DoEnter;
procedure DoExit;
function GetDate:TDateTime;if FDate=0.0 then Date:=Now;
procedure KeyPress(var Key:Char);
procedure MouseUp(Button:TMouseButton; ShiftState:TShiftState; X,Y:Integer);Determine which token the user is on and highlight the entire text of that token.
procedure SetDate(dtArg:TDateTime);
procedure WMSize(var Message:TWMSize);
procedure SelectErrorToken;
procedure SelectToken;Select the token the cursor is on.
procedure SetSeperators;Set the positions of the seperators in text.
procedure SetToken;Determine which token the cursor is over;
| Properties |
property Date : TDateTime| Events |
event OnDateChange : TNotifyEvent| Variables |
FButton : TDateButton;
FDate : TDateTime;
FOnDateChange : TNotifyEvent;
hBitmap : HBitmap;
nSep1 : Integer;
nSep2 : Integer;
sDateFmt : String[20];
sSep : Char;
Token : Integer;