Class TDateEdit (unit Dateedit) |
Inherits from
TEdit
constructor Create(AOwner:TComponent);
- --- TDateEdit ---
procedure CreateParams(var Params:TCreateParams);
destructor Destroy;
procedure DblClick;
procedure DoEnter;
procedure DoExit;
function GetDate:TDateTime;
if FDate=0.
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;
property Date : TDateTime
event OnDateChange : TNotifyEvent
FButton : TDateButton;
FDate : TDateTime;
FOnDateChange : TNotifyEvent;
hBitmap : HBitmap;
nSep1 : Integer;
nSep2 : Integer;
sDateFmt : String[20];
sSep : Char;
Token : Integer;
constructor Create(AOwner:TComponent);
--- TDateEdit ---
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;
property Date : TDateTime
event OnDateChange : TNotifyEvent
FButton : TDateButton;
FDate : TDateTime;
FOnDateChange : TNotifyEvent;
hBitmap : HBitmap;
nSep1 : Integer;
nSep2 : Integer;
sDateFmt : String[20];
sSep : Char;
Token : Integer;