如何创建运行时TCalendarEdit？

Question

我想在运行时创建一个TCalendarEdit，我已经能够创建一个TEdit和一个TClearingEdit，但是当我为TCalendarEdit尝试相同的方法时，它不起作用。当我运行它时，我收到一条弹出消息，说“无法创建循环依赖beetwen组件”。我知道beetwen拼写不正确，但这正是消息所说的！

以下是我尝试在运行时实现TCalenderEdit的代码：

editCalendar := TCalendarEdit(Self);
editCalendar.Parent := fAfspraakItem;
editCalendar.Align := TAlignLayout.alRight;
editCalendar.Width := 150;

有什么想法吗？在此先感谢!!!

Answer 1

您没有尝试创建TCalendarEdit，而是尝试将Self标记为TCalendarEdit并将其分配给editCalendar。

将您的代码更改为

editCalendar := TCalendarEdit.Create(Self);