delphi - 将焦点返回到 Delphi TDateTimePicker 控件的第一部分

Question

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

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

Answer 1

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

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

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

procedure TForm1.DateTimePicker1Exit(Sender: TObject);
begin

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

end;