将焦点返回到 Delphi TDateTimePicker 控件的第一部分答案

【问题标题】：Returning focus to first part of Delphi TDateTimePicker control将焦点返回到 Delphi TDateTimePicker 控件的第一部分
【发布时间】：2014-06-30 22:43:07
【问题描述】：

在焦点离开 TDateTimerPicker 控件并稍后返回到该控件后，控件会记住哪个部分（日、月或年）具有焦点。焦点回到那部分。

如何将焦点强制回到控件的第一个 per ？

【问题讨论】：

标签： delphi tdatetimepicker

【解决方案1】：

要强制控件忘记哪个部分具有焦点，您可以更改 DateFormat，然后再将其更改回来。因此，如果将其设置为 dfShort，请将其设置为 dfLong，然后再返回 dfShort。

诀窍不是在通过 OnEnter 事件返回焦点后执行此操作，而是在返回焦点之前执行此操作。

所以最好的地方是在 OnExit 事件中。

procedure TForm1.DateTimePicker1Exit(Sender: TObject);
begin

  DateTimePicker1.DateFormat := dfLong;
  DateTimePicker1.DateFormat := dfShort;

end;

【讨论】：

谢谢伙计。在 Delphi 5 中对我来说工作得很好。正是我想要的。值得一提的是，此后控件的所有格式都将消失。所以需要重新格式化。