我在 Delphi Firemonkey中对FMX.Calendar.Style进行子类化，以便为TCalendar组件添加更多的功能。我想添加“拖动选择”多天（一天范围）。我有一个粗略的工作原理证明。我在另一个单元中对FMX.Calendar.Style中的TStyledCalendar进行子类化。
为了提取选定的日期，我需要强制转换为TDayItem。问题是类型TDayItem在实现部分中定义，因此无法在其他单元中使用新类访问。
有办法访问它吗？

unit FMX.Calendar.Style;

interface

{$SCOPEDENUMS ON}

uses
  System.Classes, .., ..

type

{ TStyledCalendar }

  TStyledCalendar = class(TStyledPresentation)
  public const
    CountOfVisibleDays = 6 * 7;
..
..
..
  end;

implementation

uses
  System.SysUtils, .. ..

type
  TDayItem = class(TListBoxItem)
  private
    FDate: TDateTime;
  public
    property Date: TDateTime read FDate write FDate;
  end;

..

..