TCustomCalendar

type TCustomCalendar = class(TWinControl)

protected

  class procedure WSRegisterClass; override;

  procedure LMChanged(); message;

  procedure LMMonthChanged(); message;

  procedure LMYearChanged(); message;

  procedure LMDayChanged(); message;

  class function GetControlClassDefaultSize; override;

  procedure Loaded; override;

  procedure InitializeWnd; override;

  procedure DestroyWnd; override;

public

  constructor Create(); override;

  function HitTest();

  function GetCalendarView;

  property Date: string; [rws]

  property DateTime: TDateTime; [rw]

  property DisplaySettings: TDisplaySettings; [rw]

  property FirstDayOfWeek: TCalDayOfWeek; [rw]

  property MaxDate: TDateTime; [rws]

  property MinDate: TDateTime; [rws]

  property OnChange: TNotifyEvent; [rw]

  property OnDayChanged: TNotifyEvent; [rw]

  property OnMonthChanged: TNotifyEvent; [rw]

  property OnYearChanged: TNotifyEvent; [rw]

end;

TCustomCalendar

TWinControl

Implements a windowed control which can contain other child controls.

TControl

The base class for visible controls.

TLCLComponent

TObject