diff --git a/components/rtticontrols/rttictrls.pas b/components/rtticontrols/rttictrls.pas
index a0cea65f2a..a91d6cdd0e 100644
--- a/components/rtticontrols/rttictrls.pas
+++ b/components/rtticontrols/rttictrls.pas
@@ -2883,6 +2883,7 @@ function TTICustomCalendar.LinkTestEditor(const ATestEditor: TPropertyEditor
   ): Boolean;
 begin
   Result:=(ATestEditor is TDatePropertyEditor)
+       or (ATestEditor is TDateTimePropertyEditor)
        or (ATestEditor is TStringPropertyEditor);
 end;