TJDateEdit

type TJDateEdit = class(TCustomEdit)

protected

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure KeyDown(); override;

  procedure KeyPress(); override;

  procedure SetParent(); override;

  procedure DoPositionButton; virtual;

  procedure CheckButtonVisible;

  procedure Notification(); override;

  procedure CMVisibleChanged(); message;

  procedure CMEnabledChanged(); message;

  procedure CMBiDiModeChanged(); message;

  procedure Loaded; override;

  procedure ShowCalendar();

  procedure CalendarPopupReturnDate();

public

  constructor Create(); override;

  destructor Destroy; override;

  property CurrentValue: TDateTime; [r]

published

  function isNull;

  property DisplayFormat: string; [rw]

  property EditFormat: string; [rw]

  property Value: TDateTime; [rw]

  property Button: TSpeedButton; [r]

  property ButtonWidth: Integer; [rw]

  property Action;

  property Align;

  property Alignment;

  property Anchors;

  property AutoSelect;

  property AutoSize;

  property BidiMode;

  property BorderSpacing;

  property BorderStyle;

  property CharCase;

  property Color;

  property Constraints;

  property DragCursor;

  property DragMode;

  property Enabled;

  property Font;

  property MaxLength;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property PopupMenu;

  property ReadOnly;

  property ShowHint;

  property TabOrder;

  property TabStop;

  property Visible;

  property OnChange;

  property OnClick;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEditingDone;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnKeyDown;

  property OnKeyPress;

  property OnKeyUp;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnStartDrag;

  property OnUTF8KeyPress;

end;

TJDateEdit

TObject