delphi - 如何创建运行时 TCalendarEdit？

Question

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

这是我尝试在运行时实现 TCalenderEdit 的代码:

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

有什么想法吗？提前致谢!!!

Answer 1

您并不是在尝试创建 TCalendarEdit，而是尝试将 Self 类型转换为 TCalendarEdit 并将其分配给 编辑日历。

将代码更改为

editCalendar := TCalendarEdit.Create(Self);