delphi - 如何更改 onChangeEvent 中的日期？

Question

我需要对日期更改在 TDateTimePicker.OnChangeEvent 做出反应。显示对话框，如“未保存的更改将丢失”，带有确定、取消按钮。如果用户按下取消按钮，我想重置原始日期。

不幸的是，我无法更改该事件的日期。更改被忽略。

更详细的说明：

1. 用户更改 DateTimePicker 中的日期（通过键盘）或打开日历并选择一个日期
2. OnChange 事件被触发（日历可能仍然打开）
3. 我显示 MessageDialog，如果用户按“取消”我想恢复日期。例如。关闭日历并恢复日期。

Answer 1

用户 LU RD 部分解决了该问题 - 请参阅注释“恢复 OnCloseUp 事件中的值”。它适用于从日历中选择日期。

如果用户使用键盘直接在编辑中更改日期，则可以直接在 onChangeEvent 中更改。

因此，在onCloseUp和onChange事件中设置原始（或任何其他日期）的组合就足够了。